hyperlink to hidden worksheets

[SumeshNair]

Greetings to all. I have 4 worksheets, named "Home", "QA trending", "analyst trending", and "mastersheet". Home is where I have created hyperlinks to the other sheets. I have tried to write a code but it didn't work. Please find it below.

Private sub worksheet_followhyperlink (byVal Target As Hyperlink)
Link to = target.subaddress
Wherebang = InStr(1, Link to, "!")
If wherebang > 0 Then
Mysheet = Left (LinkTo, wherebang - 1)
Worksheets (mysheet).Visible = True
Worksheets(mysheet).Select
Myaddr = mid(LinkTo, wherebang + 1)
Worksheets (mysheet).Range(myaddr).Select
End If

End Sub

It will be of great help to me if someone can suggest a solution. Thanks.

 

[AlphaFrog]

Are you asking to unhide the sheets in the hyperlink subaddress? If yes, try this...

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] Worksheet_FollowHyperlink([color=darkblue]ByVal[/color] Target [color=darkblue]As[/color] Hyperlink)
    Sheets(Split(Replace(Target.SubAddress, "'", ""), "!")(0)).Visible = True
    Target.Follow
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[SumeshNair]

Yes, I am trying for two things:-
First, as you said, unhiding the worksheets.
Secondly, when one worksheet is active, others should be hidden. In other words, only one worksheet should be visible (apart from home sheet) at a time.

I have also created a 'back' hyperlink in each sheet to go back to the Home sheet.

 

[AlphaFrog]

Put this in ThisWorkbook code module. It should work for all your sheets.

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] Workbook_SheetFollowHyperlink([color=darkblue]ByVal[/color] Sh [color=darkblue]As[/color] [color=darkblue]Object[/color], [color=darkblue]ByVal[/color] Target [color=darkblue]As[/color] Hyperlink)
    Sheets(Split(Replace(Target.SubAddress, "'", ""), "!")(0)).Visible = True
    Target.Follow
    Sh.Visible = [color=darkblue]False[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[SumeshNair]

Thank you for your responses alpha.
I tried it, but didn't work..Don't know where it is going wrong

 

[AlphaFrog]

Thank you for your responses alpha.
I tried it, but didn't work..Don't know where it is going wrong

Elaborate. What didn't work? What happens? Did you put the code in the ThisWorkbook code module?