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