VBA sub til at få makroknap = arknavn

Skal du bruge makro?
hvad med at højreklikke på knapper og vælge categirized,caption og så skrive et navn.

Du kan prøve dette:

i = 1

    On Error Resume Next
    For Each c In ActiveSheet.Shapes
        If c.Type = msoOLEControlObject Then
            c.Name = Worksheets(i).Name
            i = i + 1
            If i = 10 Then Exit For
        End If
    Next c

..men der er mange fejlmuligheder forbundet med den.

Hej! Jeg har fri i dag, men jeg vender tilbage i morgen, hvor jeg kigger på det :o)

Jeg kan altå ikke få den til at virke. Jeg har indsat 2 "buttons" i et ark, og de skifter ikke navn, når jeg kører makroen. Hvad gør jeg forkert?

Svaret selv da nyt spørgsmål er oprettet.