Mike,

You may want to try using the saved property of the
Workbook Object. For example:

ThisWorkbook.Saved = True
Application.Quit

If you have more than one workbook open and you want all
of them closed without saving any of them, try:

Dim wkBooks
Dim wkBook

Set wkBooks = Application.Workbooks

For Each wkBook In wkBooks
wkBook.Saved = True
wkBook.Close
Next wkBook
Application.Quit

Hopefully that helps.

Michael