Computer Error Fixer: Troubleshooter of Error: button properties

button properties

I'm looking for the "Name" of a button

The message box of the first line of code provides "bPrintPages"
What is needed to get "button 17" with the second MsgBox?

Sub testxxxx()

MsgBox shtInput.[button 17].Name
MsgBox shtInput.[bPrintPages]

End Sub

Keys to the Problem button properties

Download SmartPCFixer to Fix It (Free)

I added a forms button to the sheet called it MyButton (via the Name Box), gave the caption Hello and copied it 16 times.
I then deleted the first and 15 subsequent copies.

    Debug.Print ActiveSheet.[Button 17].Name
    Debug.Print ActiveSheet.[Button 17].Caption
    Debug.Print ActiveSheet.[Button 17].Index

    Debug.Print ActiveSheet.[MyButton].Name
    Debug.Print ActiveSheet.[MyButton].Caption
    Debug.Print ActiveSheet.[MyButton].Index

    Debug.Print ActiveSheet.Buttons(1).Name
    Debug.Print ActiveSheet.Buttons(1).Caption
    Debug.Print ActiveSheet.Buttons(1).Index

--Immediate window output --------------------------------------------------------------
MyButton
Hello
1
MyButton
Hello
1
MyButton
Hello
1
-----------------------------------------------------

I think the information, Button 17, is something stored internally and is not exposed via the object model.

Windows Error Reporting - To Fix button properties

Go to Start button.
Open Control Panel.
Go to Windows Error Reporting.
Click on System and Maintenance, then click Problem Reports and Solutions.
Next, click Change Settings located on the left side panel of the Problem Reports and Solutions window.
Select an option to configure how you want Windows to look for a solution to your problems. You may allow Windows to do it automatically or ask you every time to check if problem occurs.
Next, click the Advanced settings link.
Select Off to turn off Error Reporting.