Private Sub Workbook_BeforeClose(Cancel As Boolean)
'this builds the menus that are added when this workbook is loaded
Application.CommandBars("Worksheet Menu Bar").Controls("&Activity").Delete
End Sub

Private Sub Workbook_Open()
Dim Menu1 As CommandBarControl
Dim MainMenuBar As CommandBar
Dim CustomMenu As CommandBarControl
On Error Resume Next

Application.CommandBars("Worksheet Menu Bar").Controls("&Activity").Delete
On Error GoTo 0
Set MainMenuBar = Application.CommandBars("Worksheet Menu Bar")
HelpMenu = MainMenuBar.Controls("Help").Index
Set CustomMenu = MainMenuBar.Controls.Add(Type:=msoControlPopup,
Befo=HelpMenu)
CustomMenu.Caption = "&Activity"
With CustomMenu.Controls.Add(Type:=msoControlButton)
.Caption = "Assign xxxxx"
.OnAction = "CategorizeNewInventory"
End With
'....etc.....
End Sub