セルを右クリックしたときに表示されるショートカットメニューに、独自のコマンドを追加するには次のようにします。 Sub AddMenu() Dim Newb As CommandBarControl Set Newb = CommandBars("Cell").Controls.Add() With Newb .Caption = "独自のコマンド" .OnAction = "Sample" End With End Sub Sub Sample() MsgBox "tanaka" End Sub CommandBars("Cell")が、セルの右クリックメニューを表しています。標準モジュールに記述するマクロでしたら、このままで動作しますが、もし標準モジュールではないモジュール(ドキュメントモジュールやUserFormモジュールなど)に記述するときは、Application.CommandB