Macro to open hidden tab - using shape as button

[ThatMasonGUy]

I'm looking to make a super simple macro that just pulls the text out of a shape and uses that to unhide and open a tab on click.

Sub ButtonToHiddenSheet()

Dim ShtName As String
ShtName = SHAPE TEXT
Sheets(ShtName).Visible = xlSheetVisible
Sheets(ShtName).Select

End Sub

I just don't know how to & cannot for the life of me find how to copy the text from within a shape, help please!

Pic of the buttons, just incase.

 

[ThatMasonGUy]

I've managed to get it to work with the below code.

Sub ButtonToHiddenSheet()

Dim ShtName As String

ActiveSheet.Shapes(Application.Caller).Select

ShtName = Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text

Sheets(ShtName).Visible = xlSheetVisible
Sheets(ShtName).Select

End Sub

 

[Georgiboy]

Think that can be just:

ShtName = Selection.ShapeRange(1).TextFrame2.TextRange

 

[dmt32]

Hi,
should not need to select the object

Sub SHAPE_CLICK()
    Dim SheetName   As String
    Dim shp         As Shape
   
    Set shp = ActiveSheet.Shapes(Application.Caller)
   
    SheetName = shp.TextFrame.Characters.Text
   
    If Evaluate("ISREF('" & SheetName & "'!A1)") Then
        With Worksheets(SheetName)
            .Activate
            .Visible = Not .Visible
        End With
    End If

End Sub

Code should toggle the visibility of the sheet

Dave