No success:( Is this working for you? On my PC with Excel 2003 not:(
Pls... Somebody to post working on Excel2003 code... When user close
form if only one workbook to close excel or if there other books to
close only activeworkbook...
Sample (not working):( All varianst in prevision post not working too
for me:(

-----
'Close form
Private Sub CommandButton4_Click()
Application.OnTime Now + TimeValue("00:00:02"), "closew"
Unload Me
End Sub


=====

Sub closew()

ActiveWorkbook.Save
If Workbooks.Count 1 Then
ActiveWorkbook.Close
else
Application.Quit
endif

End Sub

------

Big thanks in advance
P.S. Is there variant mistake in my Excel config? But I wonder what
happens...



On Wed, 9 Jun 2004 10:37:26 -0400, "Tom Ogilvy"
wrote:

If excel can't close the workbook containing the code because the useform
prevents it, then you would need to unload the userform and run the code
from a general module, perhaps using Application.Ontime to start that
macro - to break the connection between the running code and the userform.

Public bCloseApp as Boolean

Public sub ShowForm
userform1.show
if bCloseApp then
for each bk in Application.Workbooks
bk.save
next
Application.Quit
End if
End Sub


in the userform

Private Sub CloseAppButton_Click()
bCloseApp = True
unload me
End Sub