Save en closing all open Excel-files

[mulderm]

Hello,

I want to place vba-code in module1 to do all excel-files who is
open to save and to close.
I thought:

Sub test()
Dim ex As New Excel.Application
For Each w In ex.Workbooks
w.Close savechanges:=True
Next w
End Sub

but this is not working.
Any idea?

mulderm

 

[Moniker]

Sub test()
Dim ex As New Excel.Application
For Each w In ex.Workbooks
w.Save
w.Close
Next w
End Sub

 

[mulderm]

Thank you.

mulderm