smart people please help
I got from youtube this script to hyperlink hidden excel tab, however error point at "Worksheets(mysheet).Visible=True"
any ideas guys?
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
linkto=Target.SubAddress
wherebang=InStr(1,linkto,"!")
If wherebang>0 Then
mysheet=Left(linkto,wherebang-1)
Worksheets(mysheet).Visible=True
Worksheets(mysheet).Select
myaddr=Mid(linkto,wherebang+1)
Worksheets(mysheet).rang(myaddr).Select
End If
End Sub
I got from youtube this script to hyperlink hidden excel tab, however error point at "Worksheets(mysheet).Visible=True"
any ideas guys?
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
linkto=Target.SubAddress
wherebang=InStr(1,linkto,"!")
If wherebang>0 Then
mysheet=Left(linkto,wherebang-1)
Worksheets(mysheet).Visible=True
Worksheets(mysheet).Select
myaddr=Mid(linkto,wherebang+1)
Worksheets(mysheet).rang(myaddr).Select
End If
End Sub