barbosa, da proxima vez leia as Regras antes de postar, principalmente nos Itens referentes ao Assunto do tópico e os anexos que devem estar compactados.

Quanto a sua questão, troque a rotina do botão Pesquisar pela a abaixo :

Private Sub butPesquisar_Click()
    Dim idNome, idBusca As String
    Dim Linha As Integer
    
    Linha = 1
    idNome = CobPesquisa
    
    'Definimos e armazenamos na Variavel Dados o Nome da Aba que se encontram os Dados
    Set Dados = ThisWorkbook.Worksheets("Plan2")

    'Pesquisa no nome do cliente e preencher os dados
    Do While idBusca <> idNome
        Linha = Linha + 1
            'Na linha abaixo precisamos referenciar a Aba(Dados)
            idBusca = Dados.Range("B" & Linha).Value
        
        If idBusca = Empty Then
                MsgBox "Nome não encontrado!"
            Exit Do
        End If
    Loop
     
        With Dados
            txtCodigo = .Range("A" & Linha).Value
            txtNome = .Range("B" & Linha).Value
            txtEndereco = .Range("C" & Linha).Value
            txtNumero = .Range("D" & Linha).Value
            txtCompl = .Range("E" & Linha).Value
            txtBairro = .Range("F" & Linha).Value
            txtCidade = .Range("G" & Linha).Value
            cbxUF = .Range("H" & Linha).Value
            txtCEP = .Range("I" & Linha).Value
            txtCPF = .Range("J" & Linha).Value
            txtDataNasc = .Range("K" & Linha).Value
            txtIdade = .Range("L" & Linha).Value
            cbxEstadoCivil = .Range("M" & Linha).Value
            txtEmail = .Range("N" & Linha).Value
            TxtTelefone = .Range("O" & Linha).Value
            txtCelular = .Range("P" & Linha).Value
            txtPlano = .Range("Q" & Linha).Value
            txtAnamnese = .Range("R" & Linha).Value
            CobPesquisa.SetFocus
        End With

End Sub

Como os dados estão na Aba "Plan2" precisamos antes de Pesquisar, ou acessar a aba ou Seta-laem uma Variável, veja as alterações que fiz e entenderá.

[]s

Desculpe se não fiz de acordo com as regras do fórum, foi a pressa em resolver o problema.

Bom dia!!

Caso dúvida foi sanada então...
Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784

Att