Renaming a button using a macro

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi,

Hopefully an easy question to answer.

I have written a macro that adds a button and renames it. Below is the code:

ActiveSheet.Buttons.Add(2, 2, 100, 50).Select
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "Print pages"

This works fine when the new button added is actually called "Button 1".
What I want to do is replace with "Button 1" with a more generic name so if
the button added is actually called "Button 2" etc.. the macro will still
work.

Thanks in advance.
 
Hi Fullers,

Try:

'=============>>
Public Sub Tester031()
Dim BTN As Button
Set BTN = ActiveSheet.Buttons.Add(2, 2, 100, 50)
BTN.Caption = "Print pages"

End Sub
'<<=============
 
Hi,

Please use the index to access shape like

ActiveSheet.Shapes(index) to aceess the shape object rather than giving the
name

Thanks
Xcelion
 
Back
Top