suppression Names

bonjour apres le traitement de mon classeur je veux supprimer les noms de liste de validation

Code:

---

1 2	ActiveWorkbook.Names("nom1", "nom2", "nom3", etc....)Delete '

---

le souci c'est que je suis obliger de nommer tout les noms de liste
comment faire pour ne pas avoir a les nommer dans la macro?

Code:

---

1 2 3

For Each nom_supprime In Names nom_supprime.Delte Next

---

Tout simplement. ;)

etant néophyte,
les boucles sont assez mysterieuse pour moi