Sub Test()
　　With CommandBars("CELL").Controls.Add _
　　　　(Type:=msoControlButton, Temporary:=True)
　　　.BeginGroup = True
　　　.Caption = "マイマクロ"
　　　'右クリックしたときに出る文字

　　　.OnAction = "Test"
　　　'実際に実行されるマクロ名
　　End With
End Sub

Sub Test()
　　'これが実行されます。
End Sub

'元に戻すには・・・
Application.CommandBars("CELL").Reset