Namen eines aktiven Steuerelements (Sheet) auslese

ich moechte mehreren Textboxen, Checkboxen, etc. in einem Excelsheet ein- und dieselbe Ereignisprozedur zuweisen. Innerhalb dieser Prozedur muss der Namen des jeweils aktiven Steuerungsobjekts ausgelesen werden. Geht das?
Hier die angedachte Konstruktion:

Z.B. unter Sheet(1):

Private Sub Textbox1.GotFocus()
Call Module1.ProzedurAction
End Sub
Private Sub Checkbox7.GotFocus()
Call Module1.ProzedurAction
End Sub
...

Z.B. in Module1:

Sub ProzedurAction()
' Hier weiss ich nicht, wie ich den Namen des gerade focussierten Steuerelements automatisch auslesen kann...
...
End Sub

Hat jemand eine Idee? Vielen Dank fuer Eure Hilfe!!!
Viele Gruesse,
Matthias S.