Hej hej

Jo det finns en metod under shape som låter dig veta detta. Har för mig att shp ligger på Sheet nivå, så du får loopa alla blad i arbetsboken och alla shapes i varje blad. Spela in ett makro för att ta reda på metoden för att koppla makro till knapp. Vänd på metoden och tilldela en sträng till den. Lägg alla strängar i en variant eller en collection.

Har inte tillgång till dator just nu, så om du behöver kod får du hojta till så skriver jag något nästa gång jag har möjlighet.

/c

 Hej hej

Nedan kod skriver ut shapens namn och dess kopplade macro(om sådant finns) till arbetsbladet med index 1, med start A1, därefter nedåt tills samtliga knappar skrivits ut.

Mvh

Christian

Sub FindShpNameAndAttachedMacro()

    Dim sh As Worksheet

    Dim shp As Shape

    Dim i As Long: i = 1    

    For Each sh In ThisWorkbook.Sheets

        For Each shp In sh.Shapes

            Sheets(1).Range("A" & i) = shp.Name & " - " & shp.OnAction

            i = i + 1

        Next shp

    Next sh

End Sub