vishalvijayan
New Member
How do I create hyperlinks in Excel that open hidden worksheets?
Sub Button1_Click()
'Unhide the active sheet and
'Goto to 'sheet2'
With ActiveWorkbook.Worksheets("Sheet2")
.Visible = True
' Unhide ActiveSheet If Not 'Sheet2'
If .Name <> ActiveSheet.Name Then
End If
Application.Goto _
Reference:=.Range("A1"), _
Scroll:=True
End With
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
link = Target.Name
sheetname = Left(link, InStr(1, link, "!") - 1)
rangename = Right(link, Len(link) - InStr(1, link, "!"))
If Not (Worksheets(sheetname).Visible) Then Worksheets(sheetname).Visible = True
Worksheets(sheetname).Activate
ActiveSheet.Range(rangename).Select
End Sub
Hi ,i made a hyperlink to hidden sheets using macro and it works with me but when i open it online the link doesn't work please help me