Hyperlink to Hidden Sheet using a Button

[Perkwes]

Hello All,

I'm trying to Hyperlink to a hidden sheet using a button or picture. I get it to work just fine when I use a text hyperlink. What am I doing wrong.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim ShtName As String

ShtName = Left(Target.SubAddress, InStr(1, Target.SubAddress, "!") - 1)
Sheets(ShtName).Visible = xlSheetVisible
Sheets(ShtName).Select

 

[Yongle]

Welcome to the forum

What am I doing wrong?

Everything
That code is looking for a target cell

For an image or a "form controls" button ...
(this code does not work with active-x command button)
Give the image or button EXACTLY the same name as hidden sheet , then assign this code to the image

    With Sheets(Application.Caller)
        .Visible = xlSheetVisible
        .Activate
    End With

Do you want to go to a particular cell ?