I found the below code on another forum:

http://answers.microsoft.com/en-us/o...599b31bf5?db=5

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim strSheet As String
strSheet = Left(Target.SubAddress, InStr(1, Target.SubAddress, "!") - 1)
If Left(strSheet, 1) = "'" Then
strSheet = Mid(strSheet, 2, Len(strSheet) - 2)
End If
Worksheets(strSheet).Visible = xlSheetVisible
Application.EnableEvents = False
Target.Follow
Application.EnableEvents = True
End Sub

But, the code working only one time and deactivated automatically when reopen the WB. Can you help!