Knopnaam uitlezen

[moosebreath]

Ik heb verschillende knoppen met namen van Sheets. Wanneer je op de knop klikt activeerd een macro de naam van de sheet. Nu heb ik voor elke knop een aparte macro. Ik vraag me af of dat niet handiger kan (dus 1 macro voor verschillende knoppen).

Voorbeeld:
Knop 1 met de naam 1. Als je daarop drukt kom je in sheet 1
Knop 2 met de naam 2. Als je daarop drukt kom je in sheet 2
enz.
Beide roepen de volgende macro aan:

Sub Knop_ingedrukt()
Sheets("Sheet" & button.captionname).Select
End Sub

Is dit mogelijk?

EDIT: http://www.helpmij.nl/forum/showthread.php?t=257677 bedoel ik dus, maar dan met 1 macro ipv 4

 

[Wigi]

Zie bijlage voor de code.

Hier is ze ook voor zij die geen Winzipbestandje willen/kunnen downloaden:

In de Sheet module:

Private Sub CommandButton1_Click()
    Knop_ingedrukt CommandButton1
End Sub

Private Sub CommandButton2_Click()
    Knop_ingedrukt CommandButton2
End Sub

Private Sub CommandButton3_Click()
    Knop_ingedrukt CommandButton3
End Sub

Private Sub CommandButton4_Click()
    Knop_ingedrukt CommandButton4
End Sub

In een gewone module:

Sub Knop_ingedrukt(knop As MSForms.CommandButton)
    Sheets("Sheet" & knop.Caption).Select
End Sub

Wigi