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

[bonoboas]

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 ?

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]

Bonsoir @bonoboas,

Essayez:

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

 

[bonoboas]

Parfait ! Merci beaucoup !