Private Sub Label1_Click()
Call Spustane_Macro(Label1.Caption)
End Sub
Sub Spustane_Macro(Nazov As String)
MsgBox Nazov
End Sub
...ak o shape, tak takto:
Sub Shape_Click()
Call Spustane_Macro(Application.Caller)
End Sub
Sub Spustane_Macro(Nazov As String)
MsgBox Nazov
End Sub
citovat