Close application if last workbook is closed

[Rob*]

Hi Again! :-)


I found a bit of code that closes the application when also closing a workbook. Problem is if I have several workbooks open they all close with a prompt to save those who are unsaved.
Then I have to reopen the ones I need.

If I close all workbooks manually the application is still active greyed out in menus and so on.

Is there any way to use vba to check if the workbook I'm closing is the last one open?

[Norie]

Don't know what code you have but perhaps you could fit this in somewhere.

If Workbooks.Count = 1 Then
    Workbooks(1).Close
    Application.Quit
End If

[Rob*]

Might be useful.
Will try some later today.
Thanks

[Rob*]

Ok, was able to use your suggestion Norie

It works as I want to as this:

Sub ClsNQt()
If Workbooks.Count = 1 Then
Application.Quit
Else
Workbooks(1).Close
End If
End Sub