Supprimer les noms des plages de cellules

Bonjour tout le monde,

je voudrai supprimer les noms des plages de cellules qui ne sont "invisibles" sur le "Gestionnaire des Noms"

par ce qu'à chaque fois j'ouvre mon classeur, il se met à jour avec des liaisons d'autres classeurs (lent), j'ai vérifié les noms de plages dans le "Gestionnaire de Nom", j'ai rien trouvé d'anormal,
mais quand j'ai vérifié à l'aide d'un code VBA, le résultat était surprenant: PLEIN de noms qui font référence à des plages sur d'autres classeurs.
je veux supprimer ces noms invisibles.
merci


code VBA

Sub test()
Dim N As Name, A As Integer
Dim Sh As Worksheet
Set Sh = ThisWorkbook.Worksheets.Add
With Sh
.Range("A1") = "Nom"
.Range("B1") = "Plage de cellules"
A = 1
For Each N In ThisWorkbook.Names
A = A + 1
.Range("A" & A) = N.Name
.Range("B" & A) = "'" & N.RefersToLocal
Next
.Range("A1").CurrentRegion.EntireColumn.AutoFit
End With
End Sub