Reply to thread

Message: [QUOTE="Ron de Bruin, post: 6251640"] Hi rockhammer Try this You can run the first macro one time to add it to the Cell menu for always 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 [/QUOTE]