using Hyperlinks Podcast #1729 produces an ERROR on the 1st Woksheets line, why?

[Raymond1]

using a horizontal list entitled "Training2019" with hyperlinks to 3 hidden worksheets using code:

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).Visibe = True **ERROR Here
Worksheets (MySheet).Select
MyAddr = Mid(LinkTo, WhereBang + 1)
Worksheets(mySheet).Rang(MyAddr).Select
EndIf
End Sub


each sheet also has the following code:
Private Sub Worksheet_FollowHyperlink(ByVal Tareget A Hyperlink)
Worksheets ("Training2019").Select
Target.Parent.Worksheet.Visible = False
End Sub

what am I doing wrong?

 

[MARK858]

Worksheets (MySheet).Visibe = True

You are missing an L in VisibLe

 

[Raymond1]

Thanks for the typo correction, but not the source of VBA error unfortunately

 

[MARK858]

A) the lack of the L would cause an error B) you haven't told us what the error states C) what is the the value of WhereBang when it errors.

 

[Fluff]

You're also missing an e from range on this line

Worksheets(mySheet).Rang(MyAddr).Select

with those two typos corrected, your code works fine for me.

 

[Raymond1]

even with 'L' & 'E' typo's, still get VBA runtime error '9'

 

[Raymond1]

in answering question (C); wherebang error is 'subscript out of range' with <value> <value>='out of context' MISERRRRY!!!</value>

 

[Raymond1]

with <value>='out of context'

 

[Raymond1]

ahhhh..... with " <value> = 'out of contect' "

 

[Raymond1]

with 'value' . . .