Xlapp.quit() Не Срабатывает После Errh

Sub Initialize
On Error GoTo errH
 
Dim xlApp, xlWorkbook, xlSheet
Dim curDoc as NotesDocument
 
Set xlApp = CreateObject({Excel.Application})
xlApp.SheetsInNewWorkbook = 1
Call xlApp.Workbooks.Add({})
Set xlWorkbook = xlApp.Workbooks(1)
Set xlSheet = xlWorkbook.Worksheets(1)
 
тут будет заполнение отчета
xlWorkbook.Sheets(1).Name = {ТТ №} & curDoc.fldLRPNumber(0)
 
endSub:
Exit sub
errH:
Print {Error "} & Error$ & {" in line } & Erl
If IsObject(xlApp) Then
Call xlApp.Quit()
End If
Resume endSub
End Sub

Sub Initialize
On Error GoTo errH
 
Set xlApp = CreateObject({Excel.Application})
xlApp.SheetsInNewWorkbook = 1
Call xlApp.Workbooks.Add({})
Set xlWorkbook = xlApp.Workbooks(1)
Set xlSheet = xlWorkbook.Worksheets(1)
 
Call xlApp.Quit()
 
endSub:
Exit sub
errH:
Print {Error "} & Error$ & {" in line } & Erl
If IsObject(xlApp) Then
Call xlApp.Quit()
End If
Resume endSub
End Sub

Sub CloseMSobj(execName As String)
On Error GoTo ErrH
Dim objs As Variant
Dim strSQL As String
Dim strWMI As String
strWMI = "winmgmts:"
strSQL = "Select * From Win32_Process "
strSQL = strSQL & {where Name = } & execName &{}
Set objs = GetObject(strWMI).ExecQuery(strSQL)
If Not objs Is Nothyng Then
ForAll obj In objs
obj.Terminate
End ForAll
End If
Quit:
Exit Sub
ErrH:
Resume Quit
End Sub