Nigel,
If the WB has not been saved, I get the "do you want to save Book1 ?"
prompt, as expected.
Depending you want the changes committed or not, you can use:
ThisWorkbook.Save
or
ThisWorkbook.Saved = True

Otherwise the code as expected.

But this cannot be a copy/paste of your working code, as "application" would
be "Application" in the VBE.

NickHK

"Nigel" wrote in message
...
I use this code at the end of a report, everything works fine if I step
thru
the code and Excel will close but if I let the code run on its own it asks
me
if I want to Exit exit then just stops any ideas

TimeOutSeconds = 3

Set WSH = New IWshRuntimeLibrary.WshShell

Res = WSH.Popup("Do you want to Exit Excel?", TimeOutSeconds, "Exit Excel
",
vbYesNo)
Select Case Res
Case vbYes
application.Quit
Case vbNo
Exit Sub
Case -1
application.Quit
Case Else
End Select