see if this works for you.

A = Application.Caller
b = ActiveSheet.Buttons(A).Characters.Text
--
jb


"Dave" wrote:

Hi Tim,
Thanks for your help. But still stuck.
I have:

A = Application.Caller
B = ActiveSheet.Shapes(A).Characters.Text

The first line is working.
But the second line gives an error. Can you please point me to the right
syntax?
Regards - Dave.

"Tim Williams" wrote:

Application.Caller will give you the name of the button.

You can get the text using the name.

Tim

"Dave" wrote in message
...
Hi,
XL2003
I have some buttons on the Worksheet (from the Forms toolbar) which fire
specific macros.
Can VBA return (to a variable) the text of the button that fired it?
Regards - Dave.