Cómo borrar todos los nombres de rango

"Claudio Sepúlveda" escribió en el mensaje

Solicito puedan ayudarme con algún macro que borre todos los nombres de
rango de un libro.

Hola Claudio

Prueba el siguiente código,

(en un modulo estándar)

Sub Eliminador()
Dim i As Name
For Each i In ThisWorkbook.Names
i.Delete
Next i
End Sub

Un saludo,
Juan

Muchas gracias, Juan
Me sirve para los rangos que hacer referencia dentro del mismo libro, pero
tengo más de 200 rangos que hacen referencia externa y para ellos el macro
no funciona. Hay alguna forma de borrar estos rangos.
Desde ya, muchas gracias
Atte

Claudio

"Juan M" escribió en el mensaje
news:

"Claudio Sepúlveda" escribió en el mensaje

Solicito puedan ayudarme con algún macro que borre todos los nombres de
rango de un libro.

Hola Claudio

Prueba el siguiente código,

(en un modulo estándar)

Sub Eliminador()
Dim i As Name
For Each i In ThisWorkbook.Names
i.Delete
Next i
End Sub

Un saludo,
Juan

"Claudio Sepúlveda" escribió en el mensaje

Me sirve para los rangos que hacer referencia dentro del mismo libro, pero
tengo más de 200 rangos que hacen referencia externa y para ellos el macro
no funciona. Hay alguna forma de borrar estos rangos.

Hola Claudio,

¿Podrías indicarme como están definidos esos rangos que hacen referencia
externa?
En las pruebas que he hecho si esta definido en el libro donde esta la macro
los borra todos.

Un saludo,
Juan

"Juan M" escribió en el mensaje
news:

"Claudio Sepúlveda" escribió en el mensaje

Solicito puedan ayudarme con algún macro que borre todos los nombres de
rango de un libro.

Hola Claudio

Prueba el siguiente código,

(en un modulo estándar)

Sub Eliminador()
Dim i As Name
For Each i In ThisWorkbook.Names
i.Delete
Next i
End Sub

Un saludo,
Juan

Por ejemplo

Nombre Rango
cant_arm57
='\\Pc-servidorcbsa\CONSTRUCTORA\DOCUME~1\pkrause\CONFIG~1\Temp\Control
real\[Archivo MO.xls]ARM 57'!$H$7:$K$135
cant_arm80
='\\Pc-servidorcbsa\CONSTRUCTORA\DOCUME~1\pkrause\CONFIG~1\Temp\Control
real\[Archivo MO.xls]ARM 80'!$H$6:$K$161
codviv ='\\Pc-servidorcbsa\CONSTRUCTORA\Documents and
Settings\crocco\Configuración local\Archivos temporales de
Internet\OLK41\[VALLE VOLCANES 28 - Santander.xls]#¡REF'!$A$12:$A$11069
con_bono ='\\Pc-servidorcbsa\CONSTRUCTORA\Documents and
Settings\Rodrigo\Configuración local\Archivos temporales de
Internet\OLK1AC\[Plantilla presupuesto GAVS 2005 Informatica ajustado sin
otros deptos octubre.xls]Sueldos'!$F$18


Atte

Claudio

"Juan M" escribió en el mensaje
news:

"Claudio Sepúlveda" escribió en el mensaje

Me sirve para los rangos que hacer referencia dentro del mismo libro,
pero tengo más de 200 rangos que hacen referencia externa y para ellos el
macro no funciona. Hay alguna forma de borrar estos rangos.

Hola Claudio,

¿Podrías indicarme como están definidos esos rangos que hacen referencia
externa?
En las pruebas que he hecho si esta definido en el libro donde esta la
macro los borra todos.

Un saludo,
Juan

"Juan M" escribió en el mensaje
news:

"Claudio Sepúlveda" escribió en el mensaje

Solicito puedan ayudarme con algún macro que borre todos los nombres de
rango de un libro.

Hola Claudio

Prueba el siguiente código,

(en un modulo estándar)

Sub Eliminador()
Dim i As Name
For Each i In ThisWorkbook.Names
i.Delete
Next i
End Sub

Un saludo,
Juan

hola, Claudio !

[haciendo pruebas]... puedes borrarlos 'en directo' ?

-> names("cant_arm57").delete

???

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.

__ la consulta original __

Por ejemplo

Nombre Rango
cant_arm57 ='\\Pc-servidorcbsa\CONSTRUCTORA\DOCUME~1\pkrause\CONFIG~1\Temp\Control real\[Archivo MO.xls]ARM 57'!$H$7:$K$135
cant_arm80 ='\\Pc-servidorcbsa\CONSTRUCTORA\DOCUME~1\pkrause\CONFIG~1\Temp\Control real\[Archivo MO.xls]ARM 80'!$H$6:$K$161
codviv ='\\Pc-servidorcbsa\CONSTRUCTORA\Documents and Settings\crocco\Configuración local\Archivos temporales de Internet\OLK41\[VALLE VOLCANES 28 - Santander.xls]#¡REF'!$A$12:$A$11069
con_bono ='\\Pc-servidorcbsa\CONSTRUCTORA\Documents and Settings\Rodrigo\Configuración local\Archivos temporales de Internet\OLK1AC\[Plantilla presupuesto GAVS 2005 Informatica ajustado sin otros deptos octubre.xls]Sueldos'!$F$18