XL 2016 Effacer noms erronés

[KTM]

Bonsoir chers tous
mon gestionnaire de noms est bourré de noms erronés que je voudrais supprimés par macro.
Comment procéder ? MERCI

 

[Jacky67]

Bonsoir chers tous
mon gestionnaire de noms est bourré de noms erronés que je voudrais supprimés par macro.
Comment procéder ? MERCI

Bonjour,
Essaye ceci
Supprime les noms qui ont comme référence "#REF"

Sub SupprimeNOM()
    Dim C As Name
    For Each C In ThisWorkbook.Names
        If InStr(C, "#REF") Then C.Delete
    Next
End Sub

 

[KTM]

Bonjour,
Essaye ceci
Supprime les noms qui ont comme référence "#REF"

Sub SupprimeNOM()
    Dim C As Name
    For Each C In ThisWorkbook.Names
        If InStr(C, "#REF") Then C.Delete
    Next
End Sub

C'est super
Comment pourrais-je l"adapter pour aussi supprimer tous les noms faisant référence à d'autres classeurs?
Mais merci

 

[Jacky67]

Re..
"faisant référence à d'autres classeurs"
Sans connaitre le nom des classeurs, cela me semble difficile.
Cet exemple liste tous les noms et demande la suppression par oui/non

Sub SupprimeNOM()
    Dim C As Name
    For Each C In ThisWorkbook.Names
        If MsgBox("Voulez-vous supprimer ce nom==> " & C.Name & vbLf & "Fait référence à ==> " & C, 292, "Suppression") = 6 Then C.Delete
    Next
End Sub

Utiliser avec précaution