Instance still running

[sharky12345]

Can anyone tell me why this still leaves an instance of Excel running;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Workbook_BeforeClose
' Runs when the workbook is closed.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim WS As Worksheet
Dim RowNum As Long
Dim EndRow As Long
Dim LastDel As Long
Dim FirstDel As Long
Application.ShowChartTipNames = True
Application.ScreenUpdating = False
Set WS = Worksheets("AUDIT")
With WS
RowNum = .Cells(.Rows.Count, CLOSE_TIME_COL).End(xlUp).Row + 1
.Cells(RowNum, CLOSE_TIME_COL).Value = Now
.Cells(RowNum, CLOSE_WB_NAME_COL).Value = ThisWorkbook.FullName
.UsedRange.Columns.AutoFit
If KEEP_ONLY_LAST_N_ENTRIES > 0 Then
EndRow = .Cells(.Rows.Count, USERNAME_COL).End(xlUp).Row
If EndRow > 2 Then
FirstDel = 2
LastDel = EndRow - KEEP_ONLY_LAST_N_ENTRIES
If LastDel > 2 Then
.Cells(FirstDel, "A").Resize(LastDel - 1, 1).Select
End If
End If
End If
End With
Application.ScreenUpdating = True
Sheet4.Visible = xlSheetVisible
Worksheets("Correspondence").Visible = xlSheetHidden
Worksheets("AUDIT").Visible = xlSheetHidden
Worksheets("LOGS").Visible = xlSheetHidden
Worksheets("Charts").Visible = xlSheetHidden
Worksheets("SETUP").Visible = xlSheetHidden
Sheet4.Activate
ActiveWorkbook.Close savechanges:=True
End Sub

 

[VoG]

Try before End Sub

Application.Quit

 

[sharky12345]

VoG, thanks - will that close all instances or just the relevant one?

 

[VoG]

I'm pretty sure it will close only the relevant one but you'll need to test!

 

[sharky12345]

Tried it, it does the whole lot - this isn't a major issue for me though.