Одна процедура для нескольких кнопок

[MaxxVer]

Добрый день!
У меня на форме 30 кнопок, при нажатии на одну из 29 (For i = 2 To 30) должна вызываться одна и та же процедура. Больше часа гуглю, но не могу найти то что надо.. Подскажите пожалуйста алгоритм.

[MaxxVer]

Названия по порядку, т.е. можно использовать Controls("Button" & i)

[Hugo121]

Не понимаю... Ну и вызывайте одну процедуру, какие проблемы? За час можно больше сотни кнопок копипастом обработать. Или класс написать, если умеете.

[IgorGO]

а зачем нужны 30 кнопок вызывающих одну процедуру???

[MaxxVer]

Классы писать не умею( Могу написать для каждой кнопки отдельно (Private Sub CommandButton1_Click()), но не хочу плодить кучу текста одинакового. А понять как в одной процедуре обратиться ко всем кнопкам (Click) через цикл не могу... Нужно 30 потому что напротив каждой есть текстбокс куда вставляется путь файла выбранного посредством нажатия на кнопку. Т.е. одинаковая процедура - это выбор файла (GetFilePath).
Как раз копипастить не хочу, надо же совершенствоваться в ВБА
Точнее функция (GetFilePath)

[Hugo121]

Я предполагаю что ненужные прячутся
Или может каждая на своей вкладке...

P.S. Не угадал...
Пишите класс - примеры были. Я их тоже не умею, но тут думаю оптимально класс, если не хотите копипастить 30 раз.

[MaxxVer]

Ок. Буду изучать классы тогда.

[MaxxVer]

Если в лоб то так пытался сделать:

Dim i, wb As Workbook, Iten As Byte, Sht As Sheets
    Select Case Controls()
    For i = 2 To 30
    Case "Button" & i + 100
        On Error GoTo ErrorHandler
            Set wb = Workbooks.Open(GetFilePath(, "W:\new\Департамент инвестиций\Общая\=АРХИВ=\ИПР", , "*"), AddToMRU:=False, UpdateLinks:=False)
            Controls("TextBox" & i + 300).value = ActiveWorkbook.FullName
        ReDim Arr(1 To ActiveWorkbook.Worksheets.Count)
        For Each Sht In ActiveWorkbook.Worksheets
            If Sht.Visible = xlSheetVisible Then
            Item = Item + 1
            Arr(Item) = Sht.Name
                Controls("Combobox" & i).AddItem (Sht.Name)
            End If
        Next
    End Select
Next
ErrorHandler:

[IgorGO]

описанная ситуация вызывает (лично у меня) только недоумение. в Вашем файле что-то не так со структурой данных и логикой управляющих элементов (скорее всего)

Как раз копипастить не хочу

набирайте все вручную - заодно усовершенствуете технику набора текста

[MaxxVer]

Возможно, я же только учусь..))