none
Make hidden tab appear with a hyperlink RRS feed

  • Question

  • Hi ,

    I have an excel sheet which on the main sheet called 'Customer Onbording' has three links, but the sheets that these links refer to are hidden.

    Can someone help me with some code that will allow all three links to be clicked and all three hidden sheets to appear....

    Thanks

    Thursday, August 1, 2013 4:26 AM

Answers

  • This code to the sheet "Customer Onbording" makes the hidden sheet visible and after that will follow the hyperlink:

    Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
        Dim iPos As Long
        Dim sh As Worksheet
        Dim strSub As String
        strSub = Target.SubAddress
        iPos = InStr(strSub, "!")
        If iPos > 0 Then
            Set sh = Sheets(Left(strSub, iPos - 1))
            If sh.Visible <> xlSheetVisible Then
                sh.Visible = xlSheetVisible
                Target.Follow
            End If
        End If
    End Sub

    Jan

    Thursday, August 1, 2013 6:42 AM