エクセル 右クリックメニューに登録 値の貼り付け

vba 
Sub pastepaste()
	Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Sub main()
	Dim myCBCtrl As CommandBarButton
	Set myCBCtrl = Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton, ID:=370, Before:=4, temporary:=True)
	myCBCtrl.Caption = "値の貼り付け"
	myCBCtrl.OnAction = "SortFunction.pastepaste"
End Sub