Newnovo,

Veja esse post.

viewtopic.php?f=10&t=2869&start=10&hilit=trocar+48+macros

Se não avançar no fim de semana olho pra vc.

Abs,

Valeu pela atenção!
Infelizmente não consegui avançar na planilha que você me enviou. Ficarei muito grato se vc puder olhar a minha planilha no final de semana.
Até mais.

Boa noite!!

Que tal isso..

Sub FavorCompactarOsArquivos_8191()
Dim r1 As Range, r2 As Range

Set r1 = Range("J2:J12")
Set r2 = Range("K2:K12")

r1.Copy
r2.Offset(, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("L2").Value = "=K2"
Range("L2").AutoFill Destination:=Range("L2:L12")
Application.CutCopyMode = False
End Sub

Att

É quase isso! Vou explicar melhor:
Nas células da coluna L eu quero que ele me mostre o "resultado" da fórmula do caminho do arquivo, por exemplo: ='[Produtividade2013.xlsx]'JUN!A1

Caso Concreto:
Eu tenho as pastas de trabalho separadas por ano (produtividade 2011; produtividade 2012; produtividade 2013...), dentro de cada pasta de trabalho eu tenho os meses do ano (Jan; Fev; Mar; Abr; Mai; Jun; Jul...). Dessa forma, eu preciso criar em uma consulta que seja flexível, ou seja, quando eu alterar o conteúdo da célula B2 (ano) e C2 (mês) e executar a macro todas as fórmulas dos respectivos caminhos sejam alterados buscando com isso os valores das respectivas planilhas. Espero ter sido claro. Desde já obrigado pela ajuda!

Problema resolvido!
Não foi preciso criar uma. Resolvi apenas com a fórmula do indireto buscando a concatenação. Muito obrigado pela ajuda!!!

Somente para esclarecer: O INDIRETO() + CONCATENAR() não vai funcionar caso a outra planilha não esteja aberta.

Abs,