método Activate da classe range falhou!

[kskk132]

Boa noite galera , sou iniciante no VBA, como sempre gostei desse tipo de coisa e não tenho dinheiro para um curso, estou estudando em casa mesmo, então criei um sistema de cadastro, baseado no videos do youtube, só que quiz dar uma implementada, só que estou com erro na minha macro , se puderem me ajudar , eu agradeço!

Erro: em tempo de execução '1004'

o método activate da classe range falhou

Private Sub botao_pesquisar_Click()

If caixa_nome.Text = "" Then

MsgBox "Digite o NOME de um cliente"

caixa_nome.SetFocus

Exit Sub

End If

With Worksheets("Banco de Dados").Range("A:A")

Set c = .Find(caixa_nome.Value, LookIn:=xlValues, LookAt:=xlPart)

If Not c Is Nothing Then

c.Activate

caixa_nome.Value = c.Value

caixa_endereço.Value = c.Offset(0, 1).Value

caixa_numero.Value = c.Offset(0, 2).Value

caixa_bairro.Value = c.Offset(0, 3).Value

caixa_cep.Value = c.Offset(0, 4).Value

caixa_cidade.Value = c.Offset(0, 5).Value

caixa_uf.Value = c.Offset(0, 6).Value

caixa_rg.Value = c.Offset(0, 7).Value

caixa_cpf.Value = c.Offset(0, 8).Value

caixa_telefone.Value = c.Offset(0, 9).Value

caixa_email.Value = c.Offset(o, 10).Value

caixa_processos.Value = c.Offset(0, 11).Value

caixa_honorario.Value = c.Offset(0, 12).Value

Else

MsgBox "Cliente não localizado!"

End If

End With

End Sub