Entendo... Não é possível montar o nome do arquivo? Aonde o código vai buscar os dados para fazer a concatenação e montar o nome do arquivo? Em variá...

JPerez, Bom dia! Não sei como está o seu comando de salvar, porém, basta substituir o caminho que é mencionado no comando por: ActiveWorkbook....

Vkt, Bom dia! Tente assim: Sub REEXIBEEJANSED() Application.ScreenUpdating = False For Each myCell In Sheets("JANSED")....

psmerlo, Bom dia! Coloque, no final da sua rotina que vai fechando os arquivos, a linha: Workbooks("pedidos-1-20.xls").Close

lognet, Bom dia! Pedimos a gentileza de não utilizar citações de inteiro teor em sua mensagens. Não há necessidade. As citações, somente se estritam...

caleonel, Bom dia! Bom... não usei a sua função. Fiz do zero pois é bem mais prático. Veja se é assim. Concatenar.zip

gabrba, Bom dia! Creio que entendi... Até tentei fazer o processo funcionar aqui como funciona aí para você. Fiz alteração do caminho e do nome do a...

Infelizmente, aqui no meu trabalho, os sites de compartilhamento de arquivos são bloqueados.

SandroLima, Bom dia! Veja se é assim. BOTÃO CONSULTAR.zip

ueleodoro, Bom dia! Anexe seu arquivo, compactado com .ZIP, pois ficará mais fácil de que todos possam ajudar.

Verdade! Esqueci que tinha feito isso com outro propósito. Mas... só acrescentar uma pequena linha. Segue correção. EXTRAIR SERIE.zip

gabrba, Creio que esse arquivo que você enviou faz acesso a esse outro arquivo que você mencionou e que esse outro arquivo é que existe um formulário...

Celri_33, Boa tarde! Uma das formas, é com uma pequena função definida pelo usuário (UDF), com VBA, conmo eu fiz na célula D5. Veja se é assim. EXT...

Não vi nenhum formulário nesse arquivo que você enviou...

Faça um pequeno exemplo, com a mesma estrutura do arquivo original, com apenas 3 ou 5 linhas. Compacte com .ZIP e anexe aqui.