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? Thank

--
singincp
-----------------------------------------------------------------------
singincpa's Profile: http://www.excelforum.com/member.php...fo&userid=1587
View this thread: http://www.excelforum.com/showthread.php?threadid=27361