Worksheets(mysheet).Visible=True

[tanmaomao]

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

 

[Paul Ked]

In the worksheet code module put this at the very top

Option Explicit

Then try and run the code. That will show you all the variables you have to define/set for that to work!

 

[jasonb75]

Declaring the variables is always good practice but the code should still run without doing so.

The point of the error implies that the hyperlink is not pointing to a valid sheet (incorrect spelling) or range.

There could be other parts of the youtube video where the instructions have not been followed correctly.

 

[Fluff]

If you sheet names contain spaces, or are numerical change
mysheet=Left(linkto,wherebang-1)
to
mysheet = Replace(Left(linkto, wherebang - 1), "'", "")

You also have a typo on this line
Worksheets(mysheet).rang(myaddr).Select

 

[Paul Ked]

There is also an e missing off the end of range

Worksheets(mysheet).rang(myaddr).Select

 

[tanmaomao]

If you sheet names contain spaces, or are numerical change
mysheet=Left(linkto,wherebang-1)
to
mysheet = Replace(Left(linkto, wherebang - 1), "'", "")

You also have a typo on this line
Worksheets(mysheet).rang(myaddr).Select

Solved!Thanks!! Amezing and very helpful!
Thank you very much
You helped me a lot!

 

[tanmaomao]

In the worksheet code module put this at the very top

Option Explicit

Then try and run the code. That will show you all the variables you have to define/set for that to work!

Thank you for helping out and provide useful codes. You guys are so kind and amezing!

 

[tanmaomao]

Declaring the variables is always good practice but the code should still run without doing so.

The point of the error implies that the hyperlink is not pointing to a valid sheet (incorrect spelling) or range.

There could be other parts of the youtube video where the instructions have not been followed correctly.

Thank you for offering me ideas and making suggestions. You guys are so kind and amezing!

 

[Paul Ked]

You're welcome

 

[Fluff]

Glad we could help & thanks for the feedback