title: After quit of excel in Access process stil shows in task manager until Quit access completely
body: <p>I am having an issue with excel showing in the task manager processes after quit.  I have searched many different answers to still have the process show in task manager.  I have other vba code in other functions that open and close excel just fine and removes from processes, but the current event I am running below just leaves the process in the task manager until I quit access completely. Please Help!!</p>
  
  <pre><code> Private Sub status_ID_AfterUpdate()
   On Error GoTo Problems
   Dim filename As String
   Dim NewStatus As Long
  
   filename = "M:\Shared Documents\Job Cost Analysis\Hospital Active B2B Cases.xlsx" 
  
   Dim cell As Range
   Dim xlApp As Excel.Application
   Dim xlWB As Excel.Workbook
   Dim ws As Worksheet
  
   Set xlApp = New Excel.Application
   With xlApp
      .Visible = True
      Set xlWB = .Workbooks.Open(filename, , False)
      Set ws = .Worksheets("Active B2B cases")
  
  ws.Columns("B:B").Select
  Set cell = Selection.Find(What:=Me.client_ID.Value, After:=ActiveCell, LookIn:=xlFormulas, _
      LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
      MatchCase:=False, SearchFormat:=False)
  
  If cell Is Nothing Then
  'do nothing
  Else
  'Update active B2B sheet
  
  If Me.status_ID.column(0) = "FINAL PROCESSING" Then
  ws.Range("E" &amp; (xlApp.cell.Row)).Value = "Final Processing"
  MsgBox "The client's status has been updated on the Active B2B sheet"
  ElseIf Me.status_ID.column(0) = "DATA ENTRY" Then
  ws.Range("E" &amp; (xlApp.cell.Row)).Value = "Data Entry"
  MsgBox "The client's status has been updated on the Active B2B sheet"
  ElseIf Me.status_ID.column(0) = "COMPLIANCE REVIEW" Then
  ws.Range("E" &amp; (xlApp.cell.Row)).Value = "Available To Audit"
  MsgBox "The client's status has been updated on the Active B2B sheet"
  ElseIf Me.status_ID.column(0) = "SENIOR COMPLIANCE REVIEW" Then
  ws.Range("E" &amp; (xlApp.cell.Row)).Value = "2nd Level Review"
  MsgBox "The client's status has been updated on the Active B2B sheet"
  ElseIf Me.status_ID.column(0) = "WAITING FOR DOCUMENTATION" Then
  ws.Range("E" &amp; (xlApp.cell.Row)).Value = "Pending - Doc"
  MsgBox "The client's status has been updated on the Active B2B sheet"
  ElseIf Me.status_ID.column(0) = "INVOICED" Then
  xlApp.cell.EntireRow.Delete
  MsgBox "The client has been removed from the Active B2B sheet"
  End If
  
  End If
  
  End With
  xlApp.DisplayAlerts = False
  xlWB.SaveAs (filename)
  xlWB.Close
  xlApp.Quit
  
  Set cell = Nothing
  DoEvents
  Set ws = Nothing
  DoEvents
  Set xlWB = Nothing
  DoEvents
  Set xlApp = Nothing
  DoEvents
  Exit Sub
  
  Problems:
  Err.Clear
  
  Resume Next
  End Sub
  </code></pre>