Application.Quit doesn't work

[Pookiemeister]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)    
    Dim sh As Worksheet
             
    Application.DisplayAlerts = False
    For Each sh In ThisWorkbook.Sheets
        Select Case sh.Name
            Case "Exhibit " & """I"" ", "page 2"
                Call deleteWS
        End Select
    Next
    Application.DisplayAlerts = True
    ThisWorkbook.Saved = True
    Application.ActiveWorkbook.Close
    Application.Quit
End Sub

This Code will do everything as expected except the last line.

Application.Quit

For whatever reason it won't shutdown/quit excel. It just closes the workbook.
I am running 2010 Office University version, if that helps. Thank You.

 

[Joe4]

Once you close the workbook, you also close/stop any VBA procedures contained it that workbook.
So if this procedure is in that workbook, it will never get to that line of code.

If you just want to quit Excel, remove the "Application.ActiveWorkbook.Close" line. That will be unnecessary, as quitting the application will automatically close the workbook too.

 

[Pookiemeister]

That makes perfect sense. Thank You.

 

[Joe4]

You are welcome.