Eu sei.

Os parametros quando vc usa o worksheetfunction.vlookup() precisam ser determinados com os endereços completos, assim nao importa o workbook ativo...

Exemplinho:

dim wbk1 as workbook
dim wbk2 as workbook
dim resultado

set wbk1 = plan1.xlsm '(e nao xlms como na sua descrição)
set wbk2 = plan2.xlsm '(e nao xlms como na sua descrição)

resultado = application.worksheetfunction.vlookup(wbk1.Worksheets("Planilha do valor Procurado").Range("a1").value,wbk2.Worksheets("Planilha de Busca").Range("A1:J1000"),5,0)

É algo assim... vc nao muda o endereço completo do vlookup, vc muda o endereçamento dos parametros.... Tendeu?

Veja se o exemplo ajuda, abra os dois arquivos e depois digite o código na coluna (de 1 a 7), se precisar da mesma função mas com o outro arquivo fechado tambem da para fazer.

Vlookp com dois arquivos abertos

[]a

Fernando. Simples e objetivo!
Obrigado pela explicação amigo!

Mauro, valeu pelo exemplo também meu caro!

Forte abraço!