For Each w In Application.Workbooks
w.Save
Next w
Application.Quit

I think that does it, havent tested it yet though!,, might be better to
do the save first and then time delay the quit as it will be real slow
on a big workbook

HTH

Duncan