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

--
Regards,
Tom Ogilvy


"yuriy" wrote in message
...
Same result... In my primer I close book if there more books (there not
..quit) , but when I use
application.quit not close this book... That I think that not a problem.
Maybe userform?


----- Tom Ogilvy wrote: -----

You code would close the workbook with the code which causes the code
to
terminate at that point.

Just do

for each bk in Application.Workbooks
bk.Save
Next
Application.Quit


"yuiriy" wrote in message
...
Why this code don't close excel? Code is assigned to button into
userform
Private Sub CommandButton4_Click()
ActiveWorkbook.Save
If Workbooks.Count 1 Then
ActiveWorkbook.Close
Else
Application.Quit
End If
End Sub
TIA