Closing Excel via VBA Code 2

[peterpcu]

Hi,

Any suggestions on what the vba code is to cause a workbook and Excel to close without a save prompt.

I would like to attach this code to a command button on a userform so that when the user clicks the 'close' command button, the userform ends and Excel closes without any further prompts.

Regards

Pete

 

[longhair]

peterpcu,
from excel help:
DisplayAlerts Property Example

This example closes the workbook Book1.xls and doesn’t prompt the user to save changes. Any changes to Book1.xls aren’t saved.

Application.DisplayAlerts = False
Workbooks("BOOK1.XLS").Close
Application.DisplayAlerts = True

regards,
longhair

 

[peterpcu]

Hi Longhair,

Many thanks for your suggestion which does indeed close the workbook. It still seems to leave Excel open without a workbook in it - so how can I also close down excel as well??

Pete

 

[longhair]

perterpcu,
i believe it is:
application.quit
regards,
longhair

 

[HughLerwill]

Try;

With Application
.ActiveWorkbook.Saved = True
'.Workbooks.Saved = True 'to cover all open Workbooks may work too but I hav'nt tried it
.Quit
end With

 

[peterpcu]

Thanks to Longhair and Hugh ....both ways worked OK

Pete