Supprimer tous les noms de plages

[CelluleVide]

Bonjour,

J'ai hérité d'un classeur qui comporte une multitude de plage nommées inutiles.

J'ai essayer l'enregistreur de macro pour voir et il est écrit ceci:
ActiveWorkbook.Names("plantname").Delete

Mais là je ne supprime qu'un nom a la fois et j'en ai des dizaines.

Que dois-je ecrire pour les supprimer en masse?

Merci d'avance.

 

[tototiti2008]

Re : Supprimer tous les noms de plages

Bonjour CelluleVide,

à tester

Sub test()
Dim Nm As Name
    For Each Nm In ActiveWorkbook.Names
        Nm.Delete
    Next
End Sub

 

[CelluleVide]

Re : Supprimer tous les noms de plages

Bonjour tototiti2008,

J'ai testé ta proposition et ça fonctionne impeccable.

Merci et bonne journée.