надо:один макрос из нескольких

[poll69]

Доброе время суток, Господа форумчане!
Я опять с "простым" вопросом - есть большая таблица и куча кнопок, которые запускают свои макросы. Каждый макрос делает определенную выборку по таблице и вставляет на новый лист с подготовкой для печати. Суть вопроса - макросы по структуре идентичные, разница лишь в данных с которыми работают(строки, столбцы) - возможно соорудить один макрос на эту кучу кнопок (при нажатии кнопки в макрос должны вводится данные, соответствующие этой кнопке)?
Вот, собственно и он с привязкой к кнопке Button 2:

[Teslenko_EA]

Здравствуйте poll69.
Насколько я понял задачу, аналогичный код в обработчиках всех кнопок и Вы хотите избавиться от избыточного, повторяющегося кода.
Для того что бы понять как это можно реализовать внимательно изучите в Вашей конструкции функцию : WorksheetIsExist(iName$), в качестве аргумента ей передается текстовое значение iName. Создайте общую процедуру с аргументами которые для события каждой кнопки разные и вызывайте её событием кнопки перредавая в процедуру необходимые аргументы.

Private Sub CommandButton1_Click()
    срочно_исправить_all "срочно_исправить", "Удалить срочно исправить", "Создать срочно исправить"
End Sub
Sub срочно_исправить_all(s1$, s2$, s3$)
...
    If WorksheetIsExist(s1) Then IsExistList = True: strKnopka = s2
...

примерно так, надеюсь правильно понял и Вы тоже поймете.
Евгений.

[poll69]

Спасибо Евгений, буду пробовать...
Павел.