You will want a function like this, to run on the ontime.

Sub QuitApp()

Application.setwarnings false
ThisWorkbook.Save ''Might need to change if you have multiple WBs
open
Application.quit

End Sub


Keith
www.kjtfs.com


---
Message posted from http://www.ExcelForum.com/