Create your hyperlink sheet then copy this code into the relevant sheet in VBA project, I've just used it and it works a treat
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim strAddress As String
strAddress = _
Application.Substitute(Target.SubAddress, "'", vbNullString)
Worksheets(Left$(strAddress, _
InStr(1, strAddress, "!") - 1)).Visible = xlSheetVisible
Application.EnableEvents = False
Target.Follow
Application.EnableEvents = True
End Sub
if you then paste this into each individual sheet that you require to be hyperlinked it will hide them on selecting outside of that sheet, test it on your project though, works lovely on mine but their may be a prob i haven't experienced.
Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetVeryHidden
End Sub
Bookmarks