Adding menu items

[Claud Balls]

I've tried a number of different examples with no luck, so I tried
cutting the examples down to the minimum amount of code needed to add an
item to the menu bar. This is what I came up with:

Sub new_menu()
Dim cbmDemoMenu As CommandBarPopup

On Error Resume Next
Application.CommandBars("Menu Bar") _
.Controls("DEMO").Delete
Set cbmDemoMenu = Application.CommandBars("Menu Bar") _
.Controls.Add(msoControlPopup, "DEMO", , 3, True)
End Sub

I had no luck. I've searched the board, and microsoft's site. Both had
great examples, but ended in invalid procedure calls.

 

[Dave Peterson]

Is "Menu Bar" your own customized toolbar?

If no, then maybe:

Option Explicit

Sub new_menu()
Dim cbmDemoMenu As CommandBarPopup
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar") _
.Controls("DEMO").Delete
On Error GoTo 0
Set cbmDemoMenu = Application.CommandBars("worksheet Menu Bar") _
.Controls.Add(Type:=msoControlPopup, temporary:=True)
cbmDemoMenu.Caption = "DEMO"
End Sub

 

[Claud Balls]

Thank you! That worked.