Excel - Excel - Ocultar pestañas por hipervinculo

Hola, he ingresado el código para ocultar pestañas con hipervínculo, pero de 15 hipervínculos que tengo, solo me funciona en uno, en el resto me muestra error en esta línea:

If Sheets(DirLink).Visible = False Then

El código que estoy usando es este:
Dim DirLink As String 'DIRECCION DEL HIPERVINCULO SELECCIONADO

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Sheets("Contenido").Activate
DirLink = ActiveCell.Hyperlinks(1).SubAddress
DirLink = Left(DirLink, InStr(1, DirLink, "!", vbTextCompare) - 1)

If Sheets(DirLink).Visible = False Then
Sheets(DirLink).Visible = True
Sheets(DirLink).Activate
Sheets(DirLink).Range("A1").Select
End If
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name <> "Contenido" Then Sheets(Sh.Name).Visible = False
End Sub

Me podrías ayudar por favor.

Muchas gracias

Es necesario que subas el libro para ver el problema.

Saludos.
\\//_