msgbox Activesheet.Buttons("Button 1").Caption

or

msgbox Activesheet.Buttons("Button 1").Name

Activesheets.buttons("Button 1").Caption = "ABC"

Dim Btn as Button
set btn = Activesheet.Buttons(application.Caller)
msgbox btn.name & " - " & btn.Caption

would be more direct and easier to use.

--
Regards,
Tom Ogilvy


"Ken Johnson" wrote in message
oups.com...
You're welcome Bri.
Thanks for the feedback.
Ken Johnson