>>35
最悪だろこれ。だれが書いたんだ。面倒だから動かしてないが、
.AddメソッドはCommandBarControlを返すわな。
.Captionは新しく作られたCommandBarControlにかかっているのだよ。書き直すと、

Dim cbc As CommandBarControl
Set cbc = Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=6, temporary:=True)
With cbc
　.Caption = "New Context Menu Item"
　.OnAction = "MyMacro"
　.Tag = "brccm"
End With

ということだ。cbc使わなくしようと思ったらああなるだろ。
CommandBarあたりはあまり使ったこと無いから型とか間違ってたらゴメンな。