Get button caption when is clicked

[cgcamal]

Hi to all,

I have 30 useform buttons in a sheet (main sheet) and I have 30 sheets more. There is a button for each sheet name, so the caption of each button is the same of the sheet name. E.g:
--------------------------------------------------------------------
Main Sheet name=Main
Sheet1 name= S1 and the caption of button1=Store 1
Sheet2 name= S2 and the caption of button2=Store 2
.
.
.
Sheet30 name= S30 and the caption of button30=Store 30
--------------------------------------------------------------------
When button "Store X" is clicked I want to show (select) respective sheet Sheets("SX").

How can I get the caption of any button clicked to know which sheet the user want to be displayed? Is there an event for this?

Thanks in advance.

Regards.

 

[cgcamal]

For anybody interested in the future, I got the solution using Application.Caller as in the example of Juan P. G. on post:

Retrieve Command Button Caption

[FONT=Courier New][COLOR=darkblue]Sub[/COLOR] Butt*******ed_Caption()
    [COLOR=darkblue]Dim[/COLOR] St [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR], Shp [COLOR=darkblue]As[/COLOR] Shape
    St = Application.Caller
    [COLOR=darkblue]Set[/COLOR] Shp = Sheet1.Shapes(St)
    ButtCap = Shp.TextFrame.Characters.Text
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR][/FONT]

Many thanks as always.

Best regards.