Excel closed for me.

You sure you only have one open workbook.

Try adding:

msgbox application.workbooks.count

to the top of the routine.

Otto Moehrbach wrote:

Dave
Maybe I misunderstood your code, but I used the following exactly as
written. The result, if only the one workbook is open, is that the WB
closes and Excel just sits there, open.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Application.Workbooks.Count 1 Then
'just let the workbook close
Else
Application.Quit
End If
End Sub
"Dave Peterson" wrote in message
...
How about:

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Application.Workbooks.Count 1 Then
'just let the workbook close
Else
Application.Quit
End If

End Sub



Otto Moehrbach wrote:

Excel XP & Win XP
I'm helping an OP and he has come up with an interesting requirement
that I have never run into.
Using the Workbook_BeforeClose event macro, he wants to close only
the
active workbook if there are other workbooks open. However, if the
active
workbook is the only open workbook, he wants to close the application
(Excel) as well. The tricky part is that the code for this is in the
active
workbook. Once the active workbook closes, the code stops running and
cannot check for an open workbook.
The only solution I see is to check to see if more than one workbook
is
open BEFORE closing the active workbook.
My first question: How can I check to see if more than one workbook is
open?
My second question: How can I code to close Excel AFTER the workbook
containing the code is closed?
Thanks for your time. Otto

--

Dave Peterson

--

Dave Peterson