Esta función puede darte una idea
Deberias llamarla desde el evento OnChange del TextBox
'By JuanC 2004
Public Function tBuscarProximo(Valor As String, Optional Seleccionar As Boolean = False) As Range
Dim cell As Object
Dim i%, A$
Set tBuscarProximo = Nothing
A = Selection.Address
tSeleccionar cTODO ' Funciones particulares
tOrdenar
i = Len(Valor)
Valor = StrConv(Valor, vbLowerCase)
inicio:
For Each cell In Selection
If StrConv(cell.Value, vbLowerCase) Like Valor Then
Set tBuscarProximo = cell
If Seleccionar Then
Application.GoTo Reference:=tBuscarProximo, Scroll:=True
Else: Range(A).Select
End If
GoTo fin
End If
Next cell
If i > 0 Then
Valor = Left(Valor, i) & "*"
i = i - 1
GoTo inicio
Else: Range(A).Select
End If
fin:
End Function
Saludos y buena suerte, desde Buenos Aires, JuanC