How can I add my own command to the shortcut popup menu in excel? I've
copied the exsample out of the help file and when I run the macro I get this
error message.
"Invalid procedure call or argument" the code is as follows

Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _
Temporary:=True)
newMenu.Caption = "Custom"
Set ctrl1 = newMenu.Controls _
.Add(Type:=msoControlButton, ID:=1)
ctrl1.Caption = "Import"
ctrl1.TooltipText = "Import"
ctrl1.Style = msoButtonCaption

The debuger stops at the "Ser newMenu =" line.
There must be an easy way. I just want to add my macro to the shortcut menu.