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

Question

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

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

Answer 1

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

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