セル右クリックメニュー

次のプロシージャは、セルのコンテキストメニューを追加するものである。セルの右クリックから［売上データ読み込み］を選択したとき、「Proc_Uriage1」プロシージャが実行されるように、コマンドを割り当てたい。

Sub Sample()
　　　With Application.CommandBars("Cell").Controls.Add
　　　　　　.Caption = "売上データ読み込み"
　　　　　　.OnAction= "Proc_Uriage1"
　　　　　　.Visible = True
　　　End With
End Sub