Visual Basic para Aplicaciones - Problema con TEXTBOX

Buenas tardes
En primer lugar felicitar por los buenos consejos y respuestas a las preguntas de los demás. Me están sirviendo de mucho
Tengo un problema que no consigo solucionar.
Tengo un libro con una pestaña llamada DATOS y otra serie de hojas con varias numeraciones
En cada hoja hay un botón que llama al mismo formulario.
En el formulario hay un TEXTBOX y un LISTBOX que se autocompleta mientras estas escribiendo. Esta captura los datos de la pestaña DATOS. Cuando inicias la busqueda en el TEXTBOX sale las opciones en el LISTBOX y puedes elegirlo.
También hay otro TEXTBOX y un LISTBOX que se autocompleta mientras estas escribiendo. Este captura las hojas del libro que salen en el LISTBOX y al hacer click sobre una de las opciones del LISTBOX te desplaza automáticamente hacia la hoja deseada.
Mi problema es el siguiente. En el TEXTBOX De búsqueda en la pestaña DATOS. ¿Como podría hacer para que, si estoy en la HOJA3 con el formulario en pantalla, cuando empiece a escribir en el TEXTBOX, NO se dirija a la pestaña DATOS, Sino que se quede en la hoja 3?.
Puse el codigo: 'Application.ScreenUpdating = false pero al ponerlo me deshabilitaba la opcion de poder elegir la hojas y desplazarme a ella
Muchas gracias por la ayuda prestada de antemano.

Adjunto codigo:

Private Sub ListBox3_Click()
TextBox3.Text = ListBox3.List(ListBox3.ListIndex)
Me.ListBox3.Visible = False
End Sub

Private Sub TextBox3_Change()

ListBox3.Clear

Sheets("DATOS").Select

For i = 1 To Sheets("DATOS").Range("H" & Rows.Count).End(xlUp).Row

If UCase(Range("H" & i).Value) Like "*" & UCase(TextBox3.Text) & "*" Then

Me.ListBox3.Visible = True
Me.ListBox3.AddItem Range("H" & i).Value

End If

Next i
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub TextBox1_Change()
Dim nombre As String
Dim letranombre As String
ListBox1.Clear

If TextBox1 = "" Then UserForm_Initialize
For Each hoja In Sheets
nombre = hoja.Name
If UCase(nombre) Like "*" & UCase(TextBox1) & "*" Then
ListBox1.AddItem hoja.Name
End If
Next

ListBox1.Visible = True

If TextBox1 = "" Then
ListBox1.Clear
ListBox1.Visible = False
End If


End Sub

Private Sub ListBox1_Click()
For x = 0 To Me.ListBox1.ListCount - 0

If ListBox1.Selected(x) = True Then
elegirhoja = ListBox1.List(x, 0)
Worksheets(elegirhoja).Select
End If
Next x


TextBox1.Text = Clear
ListBox1.Clear
ListBox1.Visible = False
End Sub

Private Sub UserForm_Initialize()
For Each hoja In Sheets
ListBox1.AddItem hoja.Name
Next
End Sub

Muchas gracias de antemano.
Un saludo

Estos son los cambios:


Como no lo puedo probar no se si esta bien.

Saludos.
\\//_

Muchas gracias antoni por la contestacion.
Me sale lo siguiente cuando le doy al texbox de busqueda.
"Se ha producido el error "438" en tiempo de ejecucion:
"El objeto no admite esta propiedad o metodos.

Cuando le doy a depurar me salta a la linea del codigo 10 y se pone amarillo
For i = 1 To .Sheets("DATOS").Range("H" & .Rows.Count).End(xlUp).Row

Muchas gracias por la respuesta. No se como lo hice pero borre la cuenta por eso no puedo contestar por el metodo normal.

Corrige esto:


No estoy seguro de si funciona asi: .Rows.Count o si Rows.Count


Como no lo puedo probar no se si esta bien.

Saludos.
\\//_

Muchisimas Gracias Antoni.
Ha funcionado a la perfeccion omitiendo unicamente lo que ha tachado.
Es un crack.
Lastima que no pueda valorar el mensaje y darle un 10.
Si pueden los moderadores arreglarlo y darle esta valoracion positiva seria genial.
Gracias y a seguir aprendiendo.
Un saludo