создание командных кнопок с помощью VBA

Что такое код VBA, чтобы добавить командную кнопку на текущем рабочем листе, а затем вставить код для запуска при каждом нажатии этой кнопки?

заранее спасибо. Примечание. Задача для нажатия кнопки командной строки: выберите имя книги «123» (которое уже открыто), выберите имя листа «ABC», затем выберите диапазон a123.

Типичный производитель кнопок:

Sub button_maker()
    Dim r As Range
    Set r = Selection
        ActiveSheet.Buttons.Add(94.5, 75.75, 51, 27.75).Select
        Selection.OnAction = "macro123"
        ActiveSheet.Shapes(1).Select
        Selection.Characters.Text = "macro123"
    r.Select
End Sub

и типичный код кнопки:

Sub macro123()
    Workbooks("123.xlsx").Activate
    Sheets("ABC").Select
    Range("A123").Select
End Sub