How to get all names of Forms Buttons in a Workbook?

[jbesclapez]

Hello,

I can not rename a Forms Button and I think it is because the name is taken elsewhere but I have no clue where...

I have tried this macro at the end of the page that should list all buttons names : Macros for Excel Form Control Buttons
But it is not retrieving any button names.

Have you got a trick to list where is teh button used or list all buttons?
Remember, I am not talking about ActiveX buttons.

Thanks

 

[LazyBug]

Hello! Maybe

Sub btn_names()
Dim sh As Worksheet, s As Shape, m$
    With ThisWorkbook
        For Each sh In Worksheets
            m = ""
            m = m & sh.Name & vbCr & vbCr
                For Each s In sh.Shapes
                    m = m & "Element name: " & s.Name & vbCr
                Next s
            MsgBox m
        Next sh
    End With
End Sub

 

[Fluff]

I can not rename a Forms Button and I think it is because the name is taken elsewhere

What are you trying to name the button?

 

[jbesclapez]

Hello! Maybe

Sub btn_names()
Dim sh As Worksheet, s As Shape, m$
    With ThisWorkbook
        For Each sh In Worksheets
            m = ""
            m = m & sh.Name & vbCr & vbCr
                For Each s In sh.Shapes
                    m = m & "Element name: " & s.Name & vbCr
                Next s
            MsgBox m
        Next sh
    End With
End Sub

Nice Job!
I added a line to stop it whenever, it is now good.
The strange thing is that I do not see the button name in the worksheet. So why am I not allowed to rename it like this?

 

[jbesclapez]

What are you trying to name the button?

Hello Fluff, The name i would like to give to the button is
A_Aggregation

@Fluff

 

[jbesclapez]

Hello Fluff, The name i would like to give to the button is
A_Aggregation

@Fluff

Could it be because a macro as the same name?

 

[jbesclapez]

Got it! It it because a macro uses it. Thanks to both of you!

 

[Fluff]

Glad you sorted it & thanks for the feedback.