Code for closing excel

**heliskier89** · 07-11-2009, 04:56 PM

I’m sure this simple coding for you smart guys out there. Any help thankfully received and appreciated.
I know this is the code to close a workbook

ActiveWorkbook.Close

What is the coding required to close Excel altogether without saving changes or giving the option to save changes?

**shg** · 07-11-2009, 05:23 PM

Sub OuttaHere()
    Dim wkb     As Workbook

    For Each wkb In Application.Workbooks
        If wkb.Name <> ThisWorkbook.Name And _
           wkb.Name <> "Personal.xls" Then wkb.Close SaveChanges:=False
    Next wkb
    ThisWorkbook.Saved = True
    Application.Quit
End Sub

**Excel2003** · 07-11-2009, 05:25 PM

Sub close_Excel()
Application.Quit
End Sub

**shg** · 07-11-2009, 05:29 PM

Excel2003, please edit your post to add code tags.

**heliskier89** · 07-12-2009, 02:02 PM

Worked great. Thanks alot shg.

**royUK** · 07-12-2009, 02:05 PM

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save