Oi experts, procuro uma macro simples usando a função Find (sem verificação de textbox1 em branco)
Desculpem a dúvida de iniciante, a função de pesquisa parece complicado

No excel existem 2 planilhas na mesma pasta Plan1 e Plan2

Plan2 possui 3 registros com código e nome
A B
1 cod nome
2 1212 josé
3 1010 joão
4 2323 antonio

Plan1 tem um textbox1...
1. clicando no botão pesquisar, comparar o código digitado no textbox1 com os registro em Plan2
2. Copiar o resultado em Plan1

Por exemplo, no textbox1 foi digitado 1010, foi pesquisado na Plan2 e o resultado foi colado em Plan1

Plan1
A B
1 Digite o código: [ ] [pesquisar]
2
3 Resultado
4 cod nome
5 1010 joão

Um código básico que pesquisei e to tentando entender

Sub Procura()
  Dim procurado As Interger
  procurado = TextBox1.Value

    For i = 1 To QuantPlanilhas Step 1
        'Seleciona toda a área da planilha
        With Worksheets(i).Range("A:IV")
            Set c = .Find(procurado, LookIn:=xlValues)

            Sheets("Plan2").Range("A5") = Sheets("Plan2").Cells(x,"A")
	    Sheets("Plan2").Range("A6") = Sheets("Plan2").Cells(x,"A")

Obrigado.