次のような感じみたい
Sub AddClickMenu() With CommandBars("Cell").Controls.Add(Before:=1) .Caption = "値と数値の書式を貼り付け" .OnAction = "PasteValAndForm" End With End Sub Sub DelClickMenu() CommandBars("Cell").Controls("値と数値の書式を貼り付け").Delete End Sub Sub PasteValAndForm() ActiveWindow.ActiveCell.PasteSpecial Paste:=xlPasteValuesAndNumberFormats End Sub