Tester la validité des liens hypertextes

Bonjour,

Je souhaiterais mettre en place une maccro qui me permettrait de tester la validité de mes liens hypertextes.
J'ai déjà pu construire ce petit script, cependant, il ne fonctionne pas comme je le souhaiterais.
En effet, je souhaiterais qu'il m'affiche en rouge les liens hypertexte qui renvoient vers des dossiers de fichiers, et lorsque le liens renvoi également un objet (doc, xlsx, pdf...).
En revanche, ici il me renvoi une cellule rouge lorsqu'un lien hypertexte est present dans la cellule, et ceux même si celui-ci n'est pas valide. De plus, il me renvoi une cellule blanche si le lien renvoi vers un objet (doc, xlsx, pdf...).

Sub control()
 
Dim sht As Worksheet, rng As Range
Set sht = ThisWorkbook.Worksheets("D18")
For Each rng In sht.Range("D30:G35")
    With rng
         If rng.Hyperlinks.Count > 0 Then
            If Dir(rng.Hyperlinks(1).Address) <> "" Then
                .Interior.Color = vbWhite
           Else: .Interior.Color = vbRed
            End If
         End If
    End With
Next rng
End Sub

EDIT : Ajout des balises de code

Auriez vous des solutions à mon problème ?
Vous en remerciant par avance,
Cordialement,