Troque o código do botão pesquisar por este:

Private Sub butPesquisar_Click()
Dim idNome, idBusca As String
Dim Linha As Integer
Dim shtDados As Worksheet
    Set shtDados = ThisWorkbook.Worksheets("Plan2")

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

End Sub

o problema acontece pq vc não esta especificando em qual planilha é para buscar os dados.
assim, como vc só tinha usado Range(), o código estava buscando os dados na planilha do Menu, que não tem dado nenhum.

Fernando Couto Fernandes,
Quem sabe, sabe! Muito obrigado por seus esclarecimentos e também pela correção do meu código. Ficou perfeito!

Estamos aqui pra isso.

Que bom que deu certo

Abraço