Excel.exe остается в памяти после завершения макроса

Sub RunContract_Automation()
 
  'Dim Fs As Variant
  Dim ContractPath As String
  Dim WordApp As Word.Application
  Dim WordDoc As Word.Document
  Dim CType As String, CFile As String
 
 
  Set WordApp = CreateObject("Word.Application")
  Set WordDoc = WordApp.Documents.Open _
      (ThisWorkbook.Path & "\" & CFile)
  WordApp.Visible = True
'  WordApp.RUN "JoinALL"
   
     
With WordApp.Application
 
'=========Текст макроса JoinALL Вордовского файла=======
    .ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    .ActiveDocument.MailMerge.OpenDataSource name:=ActiveDocument.Path & "\WORK.xls", _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=WORK.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=35;Je" _
        , SQLStatement:="SELECT * FROM Import$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
 
        .ActiveDocument.MailMerge.Destination = wdSendToNewDocument
        .ActiveDocument.MailMerge.SuppressBlankLines = True
        .ActiveDocument.MailMerge.DataSource.FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
        .ActiveDocument.MailMerge.DataSource.LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
        .ActiveDocument.MailMerge.Execute Pause:=False
'=============================================================
     
   
   
    With .Dialogs(wdDialogFileSaveAs)
         .name = "D:\NEW\" & ContractName
         .Show
    End With
   
'    .Quit SaveChanges:=wdDoNotSaveChanges
       
End With
 
    WordApp.Quit SaveChanges:=wdDoNotSaveChanges
 
  Set WordApp = Nothing
  Set WordDoc = Nothing
 
End Sub