Coloque o arquivo na nuvem e compartilhe o link. Dê mais detalhes.

https://1drv.ms/x/s!Al5d1y-CnQPxi1qb-w_2e7eqZEOD

Qual é a senha?

Tente inserir outro formulário e colocar o mesmo código.

Não tem senha nenhuma, e eu não consigo compartilhar essa coisa. Dá falha no OneDrive
Para Excel 2016, tem algo errado nessa linha de código:

With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 8.0;"
????

Compacta ao arquivo e coloca neste servidor

www.sendspace.com

https://www.sendspace.com/file/lm7lgh

Sua Planilha esta com senha

Assim fica dificil alguem ajudar.

eita... desculpe... compartilhei o arquivo errado
https://www.sendspace.com/file/5omnh8

Qual é a senha?

Tente inserir outro formulário e colocar o mesmo código.

Boa noite!
Me desculpe por dizer q não tinha senha sem antes ter conferido. Acabei renomeando o arquivo e esquecendo de retirar o bloqueio.
De qq forma, fico agradecida por sua atenção.

Um abraço

Olá, Josy! Tudo bem contigo?

1) Vc está usando variáveis declaradas early binding mas não fez referência às respectivas bibliotecas:
No VBE, em Ferramentas > Referências, role para baixo até encontrar e marque as bibliotecas: Microsoft ActiveX Data Objects Recordset 6,0 Library e Microsoft ActiveX Data Objects 6.1 Library

2) Verifique a sua ConnectionString na rotina "NomeMãe()", parece-me que não está ok...

3) É bem possível que também seu arquivo esteja corrompido: há dois objetos Workbook nele o que é impossível, um deles é a Plan1 que está aparecendo como um Workbook (veja os ícones no VBE, no alto, à esquerda). Seria melhor vc copiar suas macros e conteúdo para uma nova pasta de trabalho e eliminar esta (imagem anexa).

Olá, Edson. Agradeço suas dicas, mas ainda assim, não consegui resolver esse problema...

Boa noite, Josy!

Testei aqui com as seguintes alterações e funcionou:

1) marque apenas a biblioteca: Microsoft ActiveX Data Objects 6.1 Library

2) Verifique a ConnectionString na rotina "NomeMãe()", realmente há um erro nela:
Substitua:
.Provider = "Microsoft.JET.OLEDB.8.0"

Por:

.Provider = "Microsoft.JET.OLEDB.4.0"

3) Continuo insistindo que seu arquivo não está muito legal, está corrompido... quando tiver um tempo, migre tudo para um arquivo limpo, ok? (Não fiz isso aqui pq percebi que vc usa Smart Tag e também tem planilha com senha).

Boa noite, Josy!

Testei aqui com as seguintes alterações e funcionou:

1) marque apenas a biblioteca: Microsoft ActiveX Data Objects 6.1 Library

2) Verifique a ConnectionString na rotina "NomeMãe()", realmente há um erro nela:
Substitua:
.Provider = "Microsoft.JET.OLEDB.8.0"

Por:

.Provider = "Microsoft.JET.OLEDB.4.0"

3) Continuo insistindo que seu arquivo não está muito legal, está corrompido... quando tiver um tempo, migre tudo para um arquivo limpo, ok? (Não fiz isso aqui pq percebi que vc usa Smart Tag e também tem planilha com senha).

Obrigada, Edson, pela sua boa vontade em tentar ajudar. Só pra constar, eu encontrei essa planilha na internet, já faz bastante tempo... E fiz umas poucas alterações para se adequar as minhas necessidades. Não foi eu quem criou o código, pois pouco tempo tenho para me envolver com excel, logo, meus conhecimentos são bastante limitados. Mas, até os computadores da escola serem furtados, e termos de trabalhar com notebooks, com outra versão de office, essa planilha rodava perfeitamente (realizava a pesquisa e exportava dados repetidos). Meu computador pessoal tem o Office 2016, o do note, no trabalho é Office 2013. Agora, isso não roda mais. O que me deixa extremamente frustrada, a ponto de querer descer a máquina de escrever e o papel carbono da prateleira e voltar ao trabalho. É retrô, mas sempre funciona. rs De qq forma, agradeço.

Um abraço

O que me deixa extremamente frustrada, a ponto de querer descer a máquina de escrever e o papel carbono da prateleira e voltar ao trabalho.

Não desista ainda! Calma!

Agora pergunto: vc tentou fazer as alterações que apontei acima? Te pergunto porque, alterando como descrito, pra mim funcionou normalmente tanto no Excel 2016. como no 2007.

De qualquer forma, baixe o arquivo já com as duas alterções do meu Google Drive: BuscaRemissiva_Planilhando (Josy).zip