Hi

Sub Test_Cell_Menu()
' Add Paste Values to the menu
Application.CommandBars("cell").Controls. _
Add Type:=msoControlButton, ID:=370, befo=1
End Sub

Sub Reset_Cell_menu()
Application.CommandBars("cell").Reset
End Sub


See also

http://support.microsoft.com/default...02&Product=xlw
How to customize menus and menu bars in Excel

http://support.microsoft.com/default...09&Product=xlw
XL2000: Sample Macros that Customize and Control Shortcut Menus

http://support.microsoft.com/default...50&Product=xlw
XL2000: Sample Macros for Customizing Menus and Submenus

http://support.microsoft.com/default...55&Product=xlw
XL97: WE1183: "Customizing Menu Bars, Menus, and Menu Items"

http://support.microsoft.com/default...19&Product=xlw
XL97: Sample Macros for Customizing Menus and Submenus

http://support.microsoft.com/default...78&Product=xlw
XL97: Sample Macros That Customize and Control Shortcut Menus




--
Regards Ron de Bruin
http://www.rondebruin.nl


"singincpa" wrote in message ...

The macro that I am using to add items is:

Sub AddItemToShortcut()
' Adds specified function to shortcut menu
'
Set NewItem = CommandBars("Cell").Controls.Add
With NewItem
Caption = "Paste Values"
OnAction = "PasteValues"
BeginGroup = False
End With
End Sub

What should it be? Thanks


--
singincpa
------------------------------------------------------------------------
singincpa's Profile: http://www.excelforum.com/member.php...o&userid=15874
View this thread: http://www.excelforum.com/showthread...hreadid=273612