Procura Nome Em Outra Planilha

[bEbEr]

galera..

seguinte.. tenho 2 planilhas no meu excel.. 1 com o nome de CLIENTES e outra com nome de DADOS

na CLIENTES eu tenho uma relação completa dos meus clientes e na outra, DADOS, é onde eu digito o nome parcial do meu cliente e ele busca na planilha CLIENTES o nome completo..

eu utilizo o seguinte script:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Then
If Target.Value = "" Then
            Me.Range("A" & Target.Row).Value = ""
            Me.Range("B" & Target.Row).Value = ""
        Else
        Set busca = Worksheets("Clientes").Cells.Find(Target.Text)
        If Not busca Is Nothing Then
            Me.Range("A" & Target.Row).Value = Worksheets("Clientes").Range("A" & busca.Row).Text 'cod cliente
            Me.Range("B" & Target.Row).Value = Worksheets("Clientes").Range("B" & busca.Row).Text 'nome cliente
            Me.Range("N" & Target.Row - 1 & ":S" & Target.Row - 1).Select 'copia cola
            Selection.AutoFill Destination:=Range("N" & Target.Row - 1 & ":S" & Target.Row), Type:=xlFillDefault 'copia cola
            Me.Range("C" & Target.Row).Select
            Else
            Me.Range("A" & Target.Row).Value = "-"
            Me.Range("B" & Target.Row).Value = "N Ã O   E N C O N T R A D O !"
            Me.Range("B" & Target.Row).Select
        End If
    End If
End If

End Sub

esse script demora dmais pois alem de buscar o nome faz outros processos junto e demora demais.. existe outra forma de eu fazer isso para que seja mais rapido?

valeuuu

[RenatoMejias]

Tente 'condicionar' sua área de pesquisa, como fiz aqui no exemplo:

Dim c As Object
For Each c In [A1:A5]
    If c.Value = "teste" Then
        c.Value = Empty
    End If
Next