Thank you for your help, I will try
Joel wrote:
I found this example in the VBA help (see below) I would think this would
work
Set fc = f.Files
For Each f1 in fc
f1.close
Next



Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & vbCrLf
Next
MsgBox s
End Sub


"Carpe Diem" wrote:

Hi,

I usually use about 15 files at the same time and I would like to
arrange a way to save all files at once instead of save the files one
by one.

Anyone knows a add in or a macro that could do this ?

Thank you

Ricardo