Application.quit problem

[DeathMagnetic]

I have a macro that once it's run, it quits the application. The problem is that once it activates, it closes all the excel worksheets. What I want to happen is that if it is the only excel workbook open I want the application to quit, but if there is another workbook open I want it to just close itself only and leave the other ones alone.

Any help would be appreciated.

[wilro85]

use:

workbooks("Workbookname.xls").close true/false
True - saves changes
False - close without saving changes.

[shg]

If the code is running in the workbook to be closed, then

Please Login or Register  to view this content.

[DeathMagnetic]

Thanks for replying.

That does work but the problem is, that by using it, when the workbook is the only one open, the excel application itself is still open when the workbook closes. What I need to happen is that if it's the only workbook open, it shuts doen everything including the application and if there is another workbook open I need it to just shut that workbook only and not the application.

[shg]

Perhaps ...

Please Login or Register  to view this content.

[DeathMagnetic]

Awesome!

But a quick question what does this part of the statement mean

If .Count = 1 Or (.Count = 2 And .Item(1).Name = "Personal.xls") Then

[shg]

If you have two workbooks open, and one is personal.xls, it closes the application.

[DeathMagnetic]

Is personal.xls a special kind of workbook or is it just any workbook of my choice?

[shg]

It's a particular workbook: http://www.rondebruin.nl/personal.htm

[DeathMagnetic]

Awesome. Thank you again.