Macro to open & close mutiple xlsx files in folder

Hi, I have some files in the shared folders which I need to open quite regularly to update (i.e. apply another macro to these files). I would need help with a macro that can open all the .xlsx files in a shared folder (no need to update link) and then another macro to save/close all these files when I'm done?

Thanks a lot.

Bernard

Hi, can anyone please help? Thks.

Please see codes below Whenever I tried to open the files, there will a prompt asking me to update links. Anyone can help to amend the codes below so that I do not have to press continue for each file please?

Also, if possible, how about a code to close all these files?


Dim sPath As String, sName As String
Dim bk As Workbook
sPath = "\\fs02\FIN\FinCom\bfr\FY12 Submissions\Corp Comm Grp\"
sName = Dir(sPath & "*.xlsx")
Do While sName <> ""
Set bk = Workbooks.Open(sPath & sName)



sName = Dir
Loop

Hi Dom, please see the codes below in code tabs.

Please Login or Register  to view this content.