Excell klicanje makrota z različnimi gumbi

Živjo, zanima me kako bi lahko v excelu klical en spisan makro z različnih gumbov in sicer zaenkrat mi uspe samo z enim gumbom:

Primer:

With ActiveSheet.Shapes("Drop Down 1").ControlFormat
vIzbraniPredmet = .List(.Value)

'MsgBox (vIzbraniPredmet) - ImePrveDatoteke

Ta koda je del makrota, in deluje samo pri enem gumbu za dropdown 1, jaz bi pa rad to naredil na več gumbov še za dropdown 2 ter 3 v isti kodi. Torej da bi nekako ob kliku na gumb 2 ter gumb 3 prikazalo "Drop down 2" ter "Drop down 3".

Primer:
Ob kliku na gumb 2 (Koda ne deluje na tak način in je samo kot primer ker bi rad izvedel kako zapisat)

With ActiveSheet.Shapes("Drop Down 1").ControlFormat
ActiveSheet.Shapes("Drop Down 2").ControlFormat
ActiveSheet.Shapes("Drop Down 3").ControlFormat
vIzbraniPredmet = .List(.Value)

'MsgBox (vIzbraniPredmet) - bi izpisal vsebino "Drop Down 2" (ImedrugeDatoteke).

Macro je napisan v Microsoft visual basic for applications (VBA) znotraj excella

V kateri rutini/metodi/funkciji maš napisano zgornjo kodo?

Nekje imaš potem verjetno nastavljeno, da ti ob kliku na Gumb1 požene imemakrota()?

Kje točno pa imaš to Run "imemakrota()"?

OK,

imemakrota() spremeni, da bo takole:

Sub imemakrota(gumb As Integer)

Potem pa za vsak gumb narediš takole:

Sub Button95_Click()
    imemakrota 1
End Sub

Za drugi gumb daš številko 2, za tretjega 3 itd.

V imemakrota pa potem enostavno preveriš spremenljivko "gumb", lahko z if stavkom ali pa takole:

    Select Case gumb
        Case 1
            ' prvi gumb
        Case 2
            ' drugi gumb
    End Select