Hallo Tom,

Sub makrozuordnung_auflisten()
' Makro von Beverly, Karin
Dim wsTabelle As Worksheet
Dim shShape As Shape
Dim inZeile As Integer
With ThisWorkbook.ActiveSheet
.Range("A:C").ClearContents
inZeile = inZeile + 1
For Each wsTabelle In ActiveWorkbook.Worksheets
.Cells(inZeile, 1) = wsTabelle.Name
For Each shShape In wsTabelle.Shapes
.Cells(inZeile, 2) = shShape.Name
.Cells(inZeile, 3) = shShape.OnAction
inZeile = inZeile + 1
Next shShape
Next wsTabelle
.Name = Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 4)
.Columns("A:C").EntireColumn.AutoFit
End With
End Sub

Gruß Hajo