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.


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!