Set cb = CommandBars("Formula Bar")
...
Set cbb = cb.Controls.Add(Type:=msoControlButton, Parameter:="new", Before:=1, Temporary:=True)
    With cbb
        .Caption = "Ля-ля-тополя"
        .Tag = "CG_GetDate"
        .Style = msoButtonCaption
        .TooltipText = "Ясен-пень"
        .OnAction = "MySub"
    End With

На листе в ячейке делаю DoubleClick.
Встаю курсором в нужное место и жму RightClick
В выпавшем меню жму пункт "Ля-ля-тополя"
Жду, что выполнится макрос "MySub"
(В нем хочу дополнить содержимое ячейки, используя  Application.SendKeys. Но это, полагаю
другая тема.
Засада в том, что всё заканчивается молча - MySub не отрабатывает (ставлю BreackPoint)
Увы...
Как жить дальше?
Подскажите, чем можите.. ))