Búsqueda de hojas

Aquí va el código
Sub BuscarHoja()
    On Error GoTo Err_BuscarHoja
    Dim sHoja As Worksheet
    Dim sNombre As String
    Dim SeEncontro As Boolean
OtraBusqueda:
    SeEncontro = False
    sNombre = InputBox("Escribe el nombre de la Hoja a buscar", "Búsqueda")
    If Trim(sNombre) = "" Then Exit Sub
    For Each sHoja In Worksheets
        If UCase(sHoja.Name) = UCase(sNombre) Then
            sHoja.Activate
            Range("A1").Select
            SeEncontro = True
            Exit For
        End If
    Next
    If Not SeEncontro Then
        If MsgBox("No se encontró la Hoja solicitada, Desea realizar otra búsqueda?", vbInformation + vbYesNo, "Búsqueda") = vbYes Then
            GoTo OtraBusqueda
        End If
    End If
Exit_BuscarHoja:
    Exit Sub
Err_BuscarHoja:
    MsgBox Err.Number & "  " & Err.Description & "  " & Err.Source
    Resume Err_BuscarHoja
End Sub