XL 2016 Effacer noms erronés

KTM à dit:

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

Cliquez pour agrandir...

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

Jacky67 à dit:

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

VB:

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

Cliquez pour agrandir...