Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
LinkTo = Target.SubAddress
WhereBang = InStr(1, LinkTo, "!")
If WhereBang > 0 Then
MySheet = Left(LinkTo, WhereBang - 1)
MySheet = Application.WorksheetFunction.Substitute(MySheet, "'", "")
Worksheets(MySheet).Visible = True
Worksheets(MySheet).Select
MyAddr = Mid(LinkTo, WhereBange + 1)
Worksheets(MySheet).Range(MyAddr).Select
End If
End Sub
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Worksheets("Menu").Select
Target.Parent.Worksheet.Visible = False
End Sub