Macro para eliminar todos los nombres de rango

Hola Zoltar,

Suponiendo que lo que quieres eliminar son nombres definidos (y no rangos) tanto a nivel del libro como a nivel de cada una de las hojas, prueba el siguiente codigo:

Sub test()
Dim Nombre As Name
For Each Nombre In ThisWorkbook.Names
Nombre.Delete
Next Nombre
End Sub

Saludos,
KL


"Zoltar" wrote in message news:

Estimados cibertnautas:

Me podrían ayudar con un macro pare eliminar todos los rangos creados en
un libro?.

Sé que es con la sentencia ActiveWorkbook.Names(nombre del rango).Delete,
pero no logro recorrer o listar todos los nombres.

Desde ya, muchas gracias.