Atualizar Arquivos Vinculados

[Jânia Paula]

Boa tarde grupo,
Por favor, eu fiz uma Macro para abrir, atualizar, salvar e fechar arquivos do Excel. Porém, preciso apenas que essa Macro (ou cod. VBA) atualize e salve os arquivos (que são vinculados) sem necessidade de abrir e carregar cada pasta. Alguém sabe e pode compartilhar qual comando devo usar e substituir no meu código? Ficaria grata se poder me ajudar! Minha Macro é:

Sub atualizar()

'

' atualizar Macro

'

 

'

ChDir "C:\EXCEL\BD\1"

Workbooks.Open Filename:="C:\EXCEL\BD\1\4-1.xlsm", UpdateLinks:=3

ActiveWorkbook.Save

ActiveWindow.Close

Workbooks.Open Filename:="C:\EXCEL\BD\1\4-2.xlsm", UpdateLinks:=3

ActiveWorkbook.Save

ActiveWindow.Close

Workbooks.Open Filename:="C:\EXCEL\BD\1\4-4.xlsm", UpdateLinks:=3

ActiveWorkbook.Save

ActiveWindow.Close

End Sub