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
'<<=============


---
Regards,
Norman



"fullers" wrote in message
...
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,

Please use the index to access shape like

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

Thanks
Xcelion




"fullers" wrote:

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.