Question : Hyperlinking to Hidden Sheets

We have a very large workbook and we would like to hide most of the data sheets, keeping a few key ones open at the beginning. Is it possible to hyperlink to one of the hidden sheets and have it open if someone needs to see the details?

Thanks!
rhsage

Answer : Hyperlinking to Hidden Sheets

Well you simply create your hyperlinks on your sheet and point them to your other sheet.

You only need to place the code in the sheet module that represents the sheet containing your hyperlinks.  So in my example you will see that the hyperlink was in  sheet1 so the code goes in the sheet1 module.

You will probably want to change the names of the sheets so I need to make a small change to the code.  Use the code below:






1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim strShtName As String
 
    strShtName = Left(Target.SubAddress, InStr(1, Target.SubAddress, "!") - 1)
 
    With Worksheets(strShtName)
        .Visible = xlSheetVisible
        .Select
    End With
End Sub
Open in New Window Select All
Random Solutions  
 
programming4us programming4us