Ricardo,
I assume you mean open Excel files in you instance of Excel:


Private Sub CommandButton1_Click()
Dim WB As Workbook

For Each WB In Workbooks
'Avoid hidden WBs, e.g. Personal.xls etc
If WB.Windows(1).Visible = True Then
WB.Save
End If
Next

End Sub

NickHK

"Carpe Diem" wrote in message
oups.com...
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