Знаю, что нужно использовать код вроде нижеприведенонго , но где взять ID для
собственного контрола - непонятно ...

Set CmdBar = Application.CommandBars.Add(Name:="GetData", _
Temporary:=True, Position:=msoBarTop)
With CmdBar
.Controls.Add Type:=msoControlActiveX, ID:=1, Before:=1 ' msoControlButton
.Controls(1).Caption = "Получить данные"
.Controls(1).OnAction = "MyProc"
end with