With CommandBars("Cell").Controls.Add(） .Caption="｛メニューに表示する名前｝" .OnAction="｛実行するマクロのメソッド名｝" End With先頭に追加するには Add(Before:=1)と書く区切り線入れるならこう書く。この例では3番めの上に区切り。 Application.…