Colegas, será que alguém poderia me dar uma forcinha nesse tópico? 🤔 🤔 🤔 🤔 

Agradeço a atenção...

@bautto,

Boa tarde!

Infelizmente, muitos usuários não conseguem acessar esses sites de compartilhamento de arquivos, principalmente de redes corporativas profissionais (meu caso).

Se possível, amigo, faça uma redução dos seus dados (deixe com poucas linhas. Tipo umas 5 linhas) e anexe aqui o próprio arquivo para podermos rodar, depurar e verificar o que está ocorrendo.

Não analisei totalmente seu código, @Bautto, mas acredito que o problema principal está em todos os pontos em que vc faz concatenações com a variável MesRef.

Se vc deixar ela entre aspas, junto com as outras palavras, ela não retornará nenhum valor, vai retornar o texto do nome da própria variável tal qual já está.

Além disso, diferentemente de lá no Excel, no VBA é obrigatório deixar um espaço em branco antes e depois do operador de concatenação "&".

Por exemplo, onde vc escreveu 

ActiveWorkbook.Queries.Add Name:="lamina_fi_&MesRef", Formula:= _....

Como a variável MesRef está entre aspas ("lamina_fi_&MesRef"), isso vai retornar lamina_fi_&MesRef ao invés de lamina_fi_202201.

O certo seria assim:

ActiveWorkbook.Queries.Add Name:="lamina_fi_" & MesRef, Formula:= _

Outro exemplo:

Errado: .CommandText = Array("SELECT * FROM [lamina_fi_&MesRef]") 

Certo:.CommandText = Array("SELECT * FROM [lamina_fi_" & MesRef & "]")

Note inclusive o espaço antes e após o E Comercial.

 Tem que alterar em todos os pontos em que isso acontece. Fiz isso aqui e abriu normalmente.

@edsonbr , Boa tarde.

Desculpem a demora, mas assim que postei o tópico, viajei para o exterior e só retornei agora...
Retomando os serviços, ainda não pude adotar sua orientação, Edson.
Agradeço seu interesse e tempo em me explicar.
Vou adotar o procedimento.
Muito obrigado.

@wagner-morel-vidal-nobre , Boa tarde.
Desculpem a demora, mas assim que postei o tópico, viajei para o exterior e só retornei agora...
Wagner, adotei esse procedimento em razão de a rotina ser muito longa e não ter conseguido identificar a causa do erro.
Minha intenção foi de fornecer todo o material para possibilitar melhor análise. Desculpe se não ajudei muito nisso.
Agradeço seu interesse e atenção.
Muito obrigado e grande abraço.

Edson, boa tarde.

Após sua orientação, analisei a fiz os ajustes na rotina. Apanhei bastante em razão da grande quantidade de inserções em texto em um mesmo comando, me perdendo às vezes com as aspas...

Mas quero novamente agradecer o apoio. A rotina funcionou muito bem.

Estou encerrando o tópico.

Grato e grande abraço. Também ao Wagner, pelo interesse.