Makro Name von Form klicken

Question

Ich habe zahlreiche Blätter, alle mit einem Knopf, der ein Makro aktiviert.

Mit VBA, wie kann ich den Namen des Makros, das an die Form auf jedem Blatt angehängt ist, abholen?

Ich habe den Code, um jedes Blatt zu sehen, aber kann nicht sehen, wie man den Makronamen von den Formeigenschaften erhält.

Answer 1

Sub LoopandExamine() 
Dim ws As Worksheet 
Dim s As Shape 
For Each ws In Worksheets 
    For Each s In ws.Shapes 
     If s.OnAction <> "" Then 
      Debug.Print s.Name & ";" & s.OnAction 
     End If 
    Next s 
Next ws 

End Sub