Busqueda mediante visual

[3pies]

Prueba esto:

Código:

Sub ir_a_la_hoja()
'preguntamos por el nombre de la hoja
hoja_de_calculo = InputBox("Introduce el nombre y apellidos", "Consulta...")
On Error Resume Next
Sheets(hoja_de_calculo).Select
'comprobamos si existe o no la hoja
If ActiveSheet.Name <> hoja_de_calculo Then
    'si existe vamos a esa hoja
    hoja_de_calculo.Select
End If
End Sub

De nada