XL 2016 Ouvrir une feuille masquée avec un lien hypertexte

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim nam$
    On Error Resume Next
    nam = Split(Target.SubAddress, "'")(1)
    With Sheets(nam)
        .Visible = True
        .Activate
    End With
    If Err Then MsgBox " il semblerait que cette feuille n'existe pas"
    On Error GoTo 0
End Sub