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.

saludos:

http://www.asap-utilities.com/

el complemento "ASAP Utilities" disponible en esta pagina tiene una opcion,
que permite eliminar los nombre, ya sea en un rengo seleccionado por el
usuario o en todo el libro, ademas de tener otros adornos que le pueden ser
utiles

Gabriel Raigosa
Medellín - Colombia

news://msnews.microsoft.com/
news://msnews.microsoft.com/microso...c.es.excel

"Zoltar" escribió en el mensaje
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.
|
|
|