Localizar las hojas automaticamente

hola, Jesús !

... libro ... mas de 60 hojas ... ordenadas ... sigue siendo un problema localizarlas ... cada vez que tengo que [...]

existen varios metodos de 'navegacion' por las hojas de un mismo libro [p.e.]
- seleccionar 'directamente' la pestaña de la hoja con el raton
- 'avanzar' a la [siguiente <|> previa] hoja con el teclado =>{Ctrl}+{AvPag} <|> {Ctrl}+{RePag}<- un 'click-derecho' en las flechas de navegacion en la parte inferior izquierda
[junto a los nombres de las hojas y barra de desplazamiento horizontal] 'presenta' una lista de las hojas en el libro
- usar los atajos para 'ir a...' [cualquiera de los cuatro metodos siguientes]
a. edicion / ir a...
b. {Ctrl}+i
c. {F5}
d. desplegar la 'caja de nombres y direcciones' [a la izquierda de la barra de formulas]
... e introducir la referencia [p.e. Hoja60!a25 o... 'Nombre de la hoja'!a45]
=> 'nota' que entre el nombre de la hoja y el rango de referencia... 'va' un signo >!< [cierre de admiracion] < y... si el nombre de la hoja tiene 'espacios' [o solo numeros] se delimita con apostrofos >'< [antes del signo]
- asignar nombres UNICOS [en el libro] a celdas 'especiales' [de cada hoja] y usar los atajos anteriores
- una macro [como la siguiente]
___ en un modulo de codigo 'normal' ___
Sub Ir_a_OtraHoja()
Dim LaHoja As Object, EstaHoja As String
EstaHoja = InputBox("Indica el nombre de la hoja", "Ir a otra hoja...")
If EstaHoja <> "" Then
On Error Resume Next
Set LaHoja = Sheets(EstaHoja)
If Not LaHoja Is Nothing Then
LaHoja.Activate
Else: MsgBox "La hoja solicitada NO ""existe"" !!!", , ""
End If
Else: MsgBox "Cambio de hoja ""cancelado"".", , ""
End If
Set LaHoja = Nothing
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.