Macro qui supprime tous les noms sauf les zone d'impression

bonoboas

XLDnaute Occasionnel
Bonjour la communauté,

J'ai trouvé une macro qui fonctionne très bien, elle me supprime tous les noms du gestionnaire de noms du classeur sauf qu' elle me supprime également la zone d'impression. Avez-vous une idée s'il vous plaît ?
VB:
Dim nm As Name
    On Error Resume Next
    For Each nm In ActiveWorkbook.Names
          nm.Delete
    Next nm
Je souhaiterais rajouter une condition : sauf "zone d'impression"

Merci d'avance pour votre aide.

Cordialement

Anthony
 

Discussions similaires