Renaming a button using a macro

[fullers]

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.

[Norman Jones]

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" <[email protected]> wrote in message
news:[email protected]...
> 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.

[Xcelion]

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.