If you must quit the application rather than closing the workbooks,
try:
Dim WB as Workbook
For Each WB In Application.Workbooks
WB.Save
WB.Saved =True
Next WB
Application.Quit
--
The Code Cage Team
Regards,
The Code Cage Team
http://www.thecodecage.com
------------------------------------------------------------------------
The Code Cage Team's Profile:
http://www.thecodecage.com/forumz/member.php?userid=2
View this thread:
http://www.thecodecage.com/forumz/sh...ad.php?t=30176