hyperlink to hidden sheet code not working

[PureBluff]

Hi all,

At one point this code was working and now it's not .... As it's a worksheet_event and I am self taught, I get no error (maybe theres a way to see an error code in a ws.event?)

Anyway, My plan was to hide some user specific sheets yet create an index page that allows you to unhide them at a click of a button.... As I say, this did work at one stage but now the sheets only activate if they're visible. :/

The code I used was:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 
    
   Dim strSheet As String 
     
   If InStr(Target.Parent, "!") > 0 Then 
      strSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1) 
   Else 
      strSheet = Target.Parent 
   End If 
    
   Sheets(strSheet).Visible = True 
   Sheets(strSheet).Select 
    
End Sub 
Private Sub Worksheet_Activate() 
    
   Dim ws As Excel.Worksheet 
    
   For Each ws In ThisWorkbook.Worksheets 
      ws.Visible = (ws.Name = Me.Name) 
   Next 
    
End Sub  

[FONT=source_sans_proregular]

The hyperlinks being in sheet "overview"

link = [FONT=source_sans_proregular]https://mega.nz/#!1pxGnSbR!PTRbBQA_L0toGxOkk8ja_4RxtORXTpYcKnAI77eNslc[/FONT][FONT=source_sans_proregular]

Can someone assist? Thanks
[/FONT]

 

[PureBluff]

EnableEvents had been set to false, that's why it stopped working!