Como eliminar todos los nombres.

Podrías eliminar todos los nombres "del libro activo" con el siguiente código:

Sub EliminarNombres()
For Each nombre In ActiveWorkbook.Names
nombre.Delete
Next nombre
End Sub

Saludos...


"Angel O." escribió:

Hola a todos. Una pequeña ayuda. Para eliminar un nombre utilizo :

ActiveWorkbook.Names("Nombre_a_eliminar").Delete

Y para eliminar todos los nombres definidos de una sola vez?

Gracias de antemano.