Introducir parte de un texto y llevar el cursor a celda

Quiero saber como Introducir parte de un texto y llevar el cursor a la celda;tengo una lista desplegable pero es muy larga y como "no es inteligente"tengo que ir bajando la flecha hasta llegar al dato;por eso pensé en esto a ver como es;tengo un código vba que sirve pero para números y no textos;(lo pongo además por si a alguien le sirve ya que es muy practico)si alguien sabe-,,,,, gracias

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$3" Then Exit Sub
If Target = "" Then Exit Sub
If IsNumeric(Target) Then
On Error GoTo Fin
fil = Application.WorksheetFunction.Match(Target, Range("A8:A1000"), 0) + 7
Range("A" & fil).Select
Exit Sub
Else
fil = Application.WorksheetFunction.Match(Target & "*", Range("B8:B1000"), 0) + 7
Range("B" & fil).Select
End If
Fin:
End Sub