Buscar un valor en varias hojas

B" Y que al localizar el valor se traiga en los textbox de l formulario, en mi codigo solo me busca en Hoja1 y yo quiero que me busque solo 5 Hojas de 8, ahi le pongo mi codigo:

Private Sub TextBox1_Change()
Sheets("Hoja1").Select
Dim i As Integer
'........................................................................................'

'...'
If ListBox1.ListCount = 0 Then
Me.ListBox1.Visible = False
End If
Me.ListBox1.Clear
For i = 2 To 5000
If LCase(Range("B" & i).Value) Like "*" & LCase(TextBox1.Text) & "*" Then
Me.ListBox1.Visible = True
Me.ListBox1.AddItem Range("B" & i).Value
End If
Next i
marca = 0
For i = 2 To 6
Sheets(i).Select
fila = 1
nombre = TextBox1
Do While nombreBusca <> nombre
fila = fila + 1
nombreBusca = Range("B" & fila).Value
If nombreBusca = Empty Then
marca = 1
Exit Do
End If
Loop
If marca = 0 Then
TextBox2.Value = Range("E" & fila).Value
TextBox10.Value = Range("E" & fila).Value
TextBox3.Value = Range("F" & fila).Value
TextBox15.Value = Range("F" & fila).Value
TextBox4.Value = Range("G" & fila).Value
TextBox13.Value = Range("G" & fila).Value
TextBox5.Value = Range("H" & fila).Value
TextBox9.Value = Range("I" & fila).Value
TextBox6.Value = Range("K" & fila).Value
TextBox8.Value = Range("L" & fila).Value
TextBox29.Value = Range("D" & fila).Value
ComboBox1 = Range("J" & fila).Value
ComboBox2 = Range("C" & fila).Value
Me.TextBox11.Enabled = True
Me.TextBox14.Enabled = True
Me.TextBox12.Enabled = True
TextBox1.SetFocus
Exit Sub
End If
marca = 0
Next i
End Sub