Hi Chet


Sub RightClickPasteValues()
With Application.CommandBars("Cell")
..Reset
..Controls.Add Type:=msoControlButton, ID:=2950, Befo=.Controls.Count + 1
..Controls(.Controls.Count).Caption = "Paste Values"
..Controls(.Controls.Count).FaceId = 156
..Controls(.Controls.Count).OnAction = ThisWorkbook.Name &
"!formulapastevalues"
..Controls(.Controls.Count).BeginGroup = True
End With
End Sub

Sub formulapastevalues()
On error resume next
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub


Regards
William


"Chet" wrote in message
...
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, befo=Num
End Sub
Sub Delete_Paste_Special_Button()
On Error Resume Next
Application.CommandBars("cell").FindControl(ID:=37 0).Delete
On Error GoTo 0
End Sub
HTH,
Bernie
MS Excel MVP