VBA Excel - .Find()

Question

olá, preciso de ajuda com o método find, NÃO CONSEGUI ACHAR EM NENHUM LUGAR, vou colocar os prints e o código aqui:

tenho a sub pesquisar() acima, quando entro nela e pesquiso por algum dado na planilha, ela fica assim:

o .Find() não está atribuindo a pesquisa para o objeto c. Já tentei mudar o range da pesquisa, já mudei para Sheets("nomedaplanilha").range, já fiz várias coisas, mas continua nao achando nada. Obs.: estou pesquisando por dados que existem na planilha

segue o print da planilha:

código abaixo:

Sub pesquisar() 

' 

' Pesquisa de dados 

    Dim pesquisa As String 

    Dim c As Range 

    pesquisa = Application.InputBox("Digite o nome:", "PESQUISAR CLIENTE PELO NOME") 

    If pesquisa = "Falso" Then 

        Exit Sub 

    End If 

    If pesquisa = vbNullString Then 

        MsgBox ("Campo vazio, digite um NOME") 

        Exit Sub 

    End If 

    With Worksheets(1).Range("G:G") 

        Set c = .Find(pesquisa, LookIn:=xlValues) 

        If Not c Is Nothing Then 

            Worksheets(1).Activate 

            Range(c.Address).Activate 

        Else 

            MsgBox ("Nenhum dado encontrado!") 

        End If 

    End With 

End Sub

ALGUEM ME AJUDAAAAAAAA

Desde já agradeço!!!!

Answer 1

Detalhe:

quando digito o .Find( .... aqui não aparece a formatação do Find como comentário ....