Public Const MenuCaption = "Мармелад"

Public Menu As CommandBarControl

Sub Menu_AddItem(Menu As CommandBarControl, I_Caption As String, I_OnAction As String)
    With Menu.Controls.Add(msoControlButton, Menu.ID)
        .Caption = I_Caption
        .OnAction = I_OnAction
    End With
End Sub

Sub Menu_Load()
    Set Menu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup)
    Menu.Caption = MenuCaption
    Menu_AddItem Menu, "Отчёт по брэндам", "RTM_Brand_Report"
    Menu_AddItem Menu, "Остатки брэндов", "RTM_Brand_Ostat"
    Menu_AddItem Menu, "Изменения цен после отгрузки", "OrdersPriceHistory"
    Menu_AddItem Menu, "О программе", "Info"
End Sub

Sub Menu_Clear()
    Dim Menu
    For Each Menu In Application.CommandBars("Worksheet Menu Bar").Controls
        If Menu.Caption = MenuCaption Then Menu.Delete
    Next
End Sub

Private Sub Workbook_Open()
    Menu_Clear
    Menu_Load
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Menu_Clear
End Sub