Erro em tempo de execução 1004 - Erro de definição de aplicativo ou de definição do objeto

Estou com dificuldade no módulo do VBA, já verifiquei os nomes digitados e não consigo resolver.
Pode me dar uma ajuda?
O módulo é:

Private Sub bt_pesquisar_Click()

Sheets("cadastro").Select

If cx_pesquisar.Text = "" Then
   MsgBox ("Digite um nome para pesquisa.")
    cx_pesquisar.SetFocus
    Exit Sub

End If

Dim c

linha = 3

With Worksheets("cadastro").Range(linha, 2)

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

If Not c Then
linha = linha + 1

Do Until Sheets("cadastro").Cells(linha, 2) = ""

Loop

c.Activate
   cx_nome.Value = c.Value
   cx_apelido.Value = c.Offset(linha, 3).Value
   cx_cidade.Value = c.Offset(linha, 4).Value
   cx_estado.Value = c.Offset(linha, 5).Value

Else
   MsgBox ("Cadastro inexistente!")
 
End If

End With

End Sub

Desde já agradeço, pois já perdi um tempão nessa etapa...

Ola seja bem vindo ao forum.

Amigão, este é um forum exclusivamente Ms Access e a sua duvida é Excel puro.

Este tópico vai ser movido para a sala Off-Topic.

Obrigado Paulo.