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
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonsoir @bonoboas,

Essayez:
VB:
Sub test()
Dim nm As Name
  On Error Resume Next
  For Each nm In ActiveWorkbook.Names
    If Not nm.Name Like "*!Print_Area" Then nm.Delete
  Next nm
End Sub
 

Discussions similaires


Haut Bas