2 vba codes in 1 excel worksheet

[sdmoreno10]

Hi,

I have a worksheet with various links that trigger the link to open the hidden tab.

The code I am using for this is:
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).Range(MyAddr).Select
End If

Now I want to add another link to this same worksheet but for it to link to another page and hide itself. The code I have for this is:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Worksheets("Home").Select
Target.Parent.Worksheet.Visible = False

End Sub


How do I combine them both on the same worksheet, so the if either the link that hides or unhides the desired tabs works without a problem.

Thank You for your help.