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.

Ricky,

It worked for me, although it added it to my menu bar not the shortcut bar.
If you want the shortcut menu, try

Set myMenuBar = aplication.CommandBars("Cell")
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

but you also need to add an OnAction property to your button, else nothing
happens.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Ricky S" wrote in message
...
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.

See the post from earlier today:

Subject: Add Command to Right-Click Menu

Is this what you are looking for?