Hyperlink to Hidden Sheet

[IDAK]

Hello all,

Can someone help me out? I am still a noob to the VBA coding but I am having issues with getting my Hyperlinks to work to a hidden sheet.

My main sheet "Project Checklist" has four hyperlinks on it directing it to a Hidden sheets one of those sheets is the " Alarm Check Process" sheet. When the sheet is hidden the hyperlinks no longer work.

My "Alarm Check Process" sheet does have a simple code on it to hide the page once you navigate away from it and it works. This code is as follows:

Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetHidden
End Sub


I have tried using this code below on the "Project Checklist" sheet but I can not seem to get it to work.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim ShtName As String
ShtName = Left(Target.SubAddress, InStr(1, Target.SubAddress, "!") - 1)
Sheets(ShtName).Visible = xlSheetVisible
Sheets(ShtName).Select
End Sub


Can someone help me and tell me what I might be doing wrong?

Thank you in advance.

 

[IDAK]

Yes I tried that as well and it still does not work.

 

[IDAK]

When I add a watch to the target my target window under value tab shows out of context.

Watch : : Target : <Out of context> : Hyperlink : Sheet2.Worksheet_FollowHyperlink

 

[IDAK]

I did click the hyperlink after inserting the break point and it does not work.

Now I added a watch to the target and other items and it shows under the value column Out of context or expression not defined in context.

Watch : : Target : <Out of context> : Hyperlink : Sheet2.Worksheet_FollowHyperlink

Watch : : ShtName : <Out of context> : Empty : Sheet2.Worksheet_FollowHyperlink

Watch : : SubAddress : <Expression not defined in context> : Empty : Sheet2.Worksheet_FollowHyperlink

 

[Fluff]

When you clicked on the hyperlink, did the code window open up with the breakpoint line highlighted in yellow?

 

[IDAK]

No it did not and I figured it should have.

 

[Fluff]

Ok, run this code & then try again

Sub ResetEvents()
Application.EnableEvents = True
End Sub

 

[IDAK]

Ok I have placed that code at the top of the page and selected run. It appears to have run.

I can use the debug on that code and get each step to highlight as expected but once it continues to the next code I have it does nothing.

 

[IDAK]

I saved it and closed visual basic and selected the hyperlink and it does not work.

 

[Fluff]

Just run that code on it's own & then try clicking the hyperlink, with the breakpoint set.

 

[IDAK]

Ok, so that code is entered above the follow hyperlink code and the breakpoint is set on the hyperlink code.

I saved it and closed the VB and selected the hyperlink and still nothing happens.