VBA - How to close Excel instance and leave Workbook open

'....snip......
    Set appExcel = GetObject(, "Excel.Application")
Excel_Running:
    Set bks = appExcel.Workbooks
    If (Dir$(strFilePath) = "") Then
        appExcel.SheetsInNewWorkbook = 2
        Set wkb = appExcel.Workbooks.Add()
        appExcel.ActiveWorkbook.SaveAs (strFilePath)
    Else
        bks.Open ("K:\Reports\FeeDrawdownReport.xlsx")
    End If
    GoTo Workbook_Update
Excel_Stopped:
    Set appExcel = CreateObject("Excel.Application")
    appExcel.SheetsInNewWorkbook = 2
    Set wkb = appExcel.Workbooks.Add()
    appExcel.ActiveWorkbook.SaveAs (strFilePath)
 
Workbook_Update:
    appExcel.Application.Visible = False
    Set sht1 = appExcel.ActiveWorkbook.Sheets(1)
    Set sht2 = appExcel.ActiveWorkbook.Sheets(2)
    sht1.Name = "Fee Drawdown Report"
    sht2.Name = "Client Fees"
'....snip......
 
' ERROR ON LINE MARKED BELOW
' Fill arrays with Consultant Names from recordset
' then create and name a worksheet for each
' Consultant Company
   intConsCounted = rstHDRCons.RecordCount
   For i = 1 To intConsCounted
     lngCon(i) = rstHDRCons!IDSiteConsultantCompany
     strCon(i) = rstHDRCons!CompanyShortName
     appExcel.Application.Sheets.Add After:=Sheets(i + 1) 'ERROR HERE
     appExcel.Application.Sheets(i + 2).Name = strCon(i)
     rstHDRCons.MoveNext
   Next i
 
 
Cleanup:
    appExcel.Application.Visible = False
    appExcel.DisplayAlerts = False
    appExcel.ActiveWorkbook.SaveAs (strFilePath)
    Set rng = Nothing
    Set rngStart11 = Nothing
    Set rngStart12 = Nothing
    Set rngStart21 = Nothing
    Set rngStart22 = Nothing
    Set rngStart31 = Nothing
    Set rngStart32 = Nothing
    Set newSheet = Nothing
    Set sht1 = Nothing
    Set sht2 = Nothing
    If wkb Is Nothing Then
    Else
        wkb.Close
        Set wkb = Nothing
    End If
    If bks Is Nothing Then
    Else
        bks.Close
        Set bks = Nothing
    End If
    appExcel.Application.Quit
    Set appExcel = Nothing
    
   Dim hwnd
   Dim StartDoc
   hwnd = apiFindWindow("OPUSAPP", "0")
 
   StartDoc = ShellExecute(hwnd, "open", strFilePath, "", _
      "K:\", SW_SHOWNORMAL)
Exit Sub
 
Error_Cleanup:
    Set rng = Nothing
    Set rngStart11 = Nothing
    Set rngStart12 = Nothing
    Set rngStart21 = Nothing
    Set rngStart22 = Nothing
    Set rngStart31 = Nothing
    Set rngStart32 = Nothing
    Set newSheet = Nothing
    Set sht1 = Nothing
    Set sht2 = Nothing
    If wkb Is Nothing Then
    Else
        wkb.Close
        Set wkb = Nothing
    End If
    If bks Is Nothing Then
    Else
        bks.Close
        Set bks = Nothing
    End If
    appExcel.DisplayAlerts = False
    appExcel.Application.Quit
    Set appExcel = Nothing
    Exit Sub
'..........

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:

sht2.activate
Set rngStart21 = sht2.Range("A13")
Set rng = appExcel.Application.ActiveCell.Offset(0, 3)
Set rngStart22 = sht2.Range(rng, rng.Offset(intSummaryLineCount - 1, 1))
                                              

1:
2:
3:
4: