Nombres Rangos

Si tienes un nombre definido, se supone que ya conoces el dicho nombre, por lo tanto no es necesario obtenerlo, si yo se que mi rango se llama Dato1 para seleccionarlo por ejemplo, uso...
Range("Dato1").Select
OJO, esto solo funcionara si la hoja activa contiene a Dato1, sino te generara un error, para ir al rango definido como Dato1, desde cualquier parte usa...
Application.Goto "Dato1"
Que activara el libro y la hoja donde este Dato1, por supuesto si no existe Dato1 te generara un error...
La cosa cambia cuando NO conoces el o los nombres definidos en la hoja o el libro de trabajo, para saber que nombres están definidos y la dirección a la que apuntan usas...
Public Sub Nombres()
Dim n As Name
For Each n In ActiveWorkbook.Names
MsgBox n.Name & " " & n.RefersTo
End Sub
Una utilidad muy interesante de los rangos con nombres es que es posible "ocultar" el nombre, es decir, que no aparezca en el cuadro de nombres ni en el menu Insertar | Nombres | Definir, esto lo haces así...
Public Sub Ocultar_Nombres()
Dim n As Name
For Each n In ActiveWorkbook.Names
n.Visible = False
Next
End Sub
por supuesto tendrias que tener otra macro para volverlos a mostrar...
Public Sub Mostrar_Nombres()
Dim n As Name
For Each n In ActiveWorkbook.Names
n.Visible = True
Next
End Sub
Espero te sirva, saludos...
Mauricio Baeza
[email protected]
Todo lo que no es dado es perdido
*==========================================*
La presente respuesta ha demandado un tiempo de lectura,
análisis, elaboración y redacción. A cambio, simplemente,
Pretendo que te tomes un minuto para FINALIZARLA, si
Hubiera satisfecho -en alguna medida- tu requerimiento.
En caso contrario, puedes preguntarme nuevamente
Aclarando qué entendí mal o qué faltó.