Add "paste values" to right-click shortcut menu-how do? Excel 2010

[Chet]

I had a post about a year ago on how to do this but I am trying to
find out how to do it with Excel 2010 since this code below was said
to work up to version 2003. So does anyone know how to do it for
Excel 2010?

Original post-----
Anyone know how to add "paste values" to the shortcut menu that comes
up when you right-click over a worksheet? John Walkenbach refers to
it in his book Power Programming Techniques 5 but I am missing some
details on how to do this. Thanks, Chet


Response post---------
Bernie Deitrick
--------------------------------------
(1 user) More options Sep 18 2009, 8:15 am
Chet,
For all but XL 2007, code from Ron deBruin:
Sub Add_Paste_Special_Button()
' This will add the Paste Special Values button to the cell menu
' after the Paste option
Dim Num As Long
Num = Application.CommandBars("Cell"). _
FindControl(ID:=755).Index
Application.CommandBars("cell").Controls. _
Add Type:=msoControlButton, ID:=370, before:=Num
End Sub
Sub Delete_Paste_Special_Button()
On Error Resume Next
Application.CommandBars("cell").FindControl(ID:=370).Delete
On Error GoTo 0
End Sub
HTH,
Bernie
MS Excel MVP