Dei uma lida em alguns topicos, mas nao consegui evoluir no assunto.
Alguem teria alguma resposta?
Abraços

Pessoal, consegui sozinho fazer o que precisava.
Abaixo o código que criei.
Espero que ajude a quem necessita do mesmo.
Abraços.

Sub ATUALIZAR_2() 'JokerPot

TEMPO_INI = Time

Sheets("PARAMETROS").Select
x_ABA = ThisWorkbook.Name

n_IMP = 3

For n_IMP = 3 To 11

ENDEREÇO = Sheets("PARAMETROS").Cells(n_IMP, 4).Value
PLANILHA_ATUAL = Sheets("PARAMETROS").Cells(n_IMP, 6).Value
PLANILHA_ANTERIOR = Sheets("PARAMETROS").Cells(n_IMP, 8).Value
FINAL_ATUAL = ENDEREÇO & "" & PLANILHA_ATUAL
FINAL_ANTERIOR = ENDEREÇO & "" & PLANILHA_ANTERIOR

ChDir ENDEREÇO
Workbooks.Open(Filename:=FINAL_ATUAL, _
UpdateLinks:=0).RunAutoMacros Which:=xlAutoOpen
Windows(x_ABA).Activate
ActiveWorkbook.ChangeLink Name:=FINAL_ANTERIOR _
, NewName:=PLANILHA_ATUAL, Type:=xlExcelLinks
Windows(PLANILHA_ATUAL).Activate
ActiveWindow.Close savechanges:=False

Next

TEMPO_FIN = Time

TEMPO_TOTAL = TEMPO_FIN - TEMPO_INI

MsgBox "ROTINA FINALIZADA EM:    " & Format(TEMPO_TOTAL, "hh:mm:ss"), vbInformation, "Atualização"

End Sub