Eliminar nombres de rangos

Hola!
¿No tienes por ahí un código para una macro que me sirva para eliminar todos los nombres de rangos que se encuentren definidos?
Lo que tengo una macro que me define varios rangos, pero después quiero eliminarlos todos y eliminarlos manualmente (Insertar/nombre/definir/eliminar) me resulta muy tardado por la cantidad de rangos que defino.
Bueno espero que tengas algo por ahí.
Saludos y Gracias.

1 Respuesta

Respuesta
1
Quizás una macro como esta:
Sub BorraNombres()
    n = ActiveWorkbook.Names.Count
    For i = 1 To n
         ActiveWorkbook.Names(1).Delete
    Next i
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas