Renaming a button using a macro
 

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.

Renaming a button using a macro
 

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.

Renaming a button using a macro
 

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.