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]

I just made a new workbook for an example. Can I send this to you?

 

[IDAK]

The example workbook I made is only 2 sheets and only has 2 hyperlinks on it. One to the hidden sheet and one on the hidden sheet to go back to the main page.

 

[Fluff]

You can upload a file to a share site such as OneDrive, GoggleDrive, mark it for sharing & post the link to the thread.
However judging by this

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

You have not done what I said. Do not add that code to the hyperlink code, just run it on it's own from a normal module.
It is possible that events have been disabled & that code will reset it.

 

[IDAK]

I did insert a module to the Project checklist sheet and added that code but it is not working.

Here is the link to the example workbook.

Example1.xltm

drive.google.com

 

[IDAK]

Sorry if I am miss understanding the direction you are providing me.

 

[Fluff]

Ok, thanks for the file. The reason it's not working is that you are not using a Hyperlink, but a shape.
Whilst you have attached a link to the shape, it's not the same as a hyperlink in cell.
You will either need to put a link in a cell & use your code, or remove the link from the shape & assign a macro to it.

 

[IDAK]

Ok so I will work on it in that direction. Thank you for the help and redirecting me in the correct place.

 

[Fluff]

You're welcome & thanks for the feedback.
If you get stuck just shout