Effacer tous les noms d'un coup

Bojour à tous,

je travaille sur le fichier d'un forumeur. Ce fichier est extrèmement lourd car il possède une myriade de noms définis qui ne correspondent qu'à des références erronées (Je ne sais pas pourquoi). Les effacer un par un est trés fastidieux d'autant plus qu'il y en a plusieurs centaines!

Peut on créer un code qui les effacera tous d'un seul clic.

D'avance, merci

Elfi

Bonjour

Trouvé sur le Net (Code de Joss):

Sub Supnom()
Dim n As Name
For Each n In Names
n.Delete
Next n
End Sub

Cordialement

Merci Amadéus,

cela m'a bien servi pour faire du nettoyage.

Amicalement,

Elfi