Привязка макроса к кнопке

[VisuaL]

Автоматически создаём листы, на каждом листе добавляем кнопку. Как к этим кнопкам привязать макрос который уже имеется?

[дмидми]

Придётся всухую. Что за кнопка, откуда взялась, куда и как помещена?

[VisuaL]

Sheets.Add
ActiveSheet.OLEObjects.Add(ClassTyp e:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=21.75, Top:=6, Width:=89.25, Height:= _
30.75).Select

В этой книге готовый есть макрос, который должен быть привязан к кнопкам которые находятся на всех листах книги.

[дмидми]

Понятно, взята с панели "Элементы управления".

При помощи кнопок с этой же панели переходите в "Режим конструктора", выделяете свою кнопку и кликаете "Исходный текст".
Попадёте во что-то вроде
Private Sub CommandButton1_Click()
Туда и вставляете вызов своего макроса.

[VisuaL]

Наверное немного не правильно был задан вопрос.
Вот так правильнее:
АВТОМАТИЧЕСКИ создаём листы, на каждом листе АВТОМАТИЧЕСКИ добавляем кнопку. Как к этим кнопкам АВТОМАТИЧЕСКИ привязать макрос который уже имеется?

[дмидми]

Нужно автоматически прописать в модуле добавленного листа процедуру обработки события "Клик" для этой кнопки (примерный заголовок я привёл выше).

Чтобы не ждать милостей от природы после того, что мы с ней сделали, я бы при создании кнопки не глядя менял автоматически сгенерённое имя (бог весть, каким оно будет; в примере выше - CommandButton1) на своё. Что-то вроде

With ActiveSheet.OLEObjects.Add(Class...
    .Name = ...

, и только потом формировал заголовок процедуры.

[IgorGO]

кнопки с панели "формы" попадают в коллекцию Buttons листа.
выбираем из коллекции свою кнопку (по номеру, или имени, если оно было задано при вставке кнопки) и в поле OnAction пишем имя процедуры. Все, кнопка привязана к маркосу. Имя процедуры может содержать имя файла.

[дмидми]

Кстати, что мешает создать шаблон листа - с поименованной кнопкой, c процедурой обработки события, из которой вызывается макрос, - и создавать новые листы по этому шаблону?