После закрытия Excel процесс остается

 oExcel.Range('A6:H6').Select
    oExcel.ActiveCell.FormulaR1C1 = 'Смета'
    With oExcel.Selection
        .HorizontalAlignment = xlCenter ' ВОТ ЗДЕСЬ ОСТАНАВЛИВАЕТСЯ
        .VerticalAlignment = xlVAlignCenter
        .WrapText = True
        .Orientation = 0
        .ShrinkToFit = False
        .MergeCells = True
    End With 'Selection

'приложение экселя
Public ExcelApp As Excel.Application
Так же описываю процы для управления жизнью экселя и своей проги:
'для опредеделния запущ. экселя
Declare Function FindWindowByClass Lib 'user32' _
Alias 'FindWindowA' (ByVal lpClassName As String, _
ByVal lpWindowName As Long) As Long
 
Public Function IsExcelRunning() As Boolean
Dim lngRetVal As Long
 
lngRetVal = FindWindowByClass('XLMAIN', 0&)
If lngRetVal <> 0 Then
 IsExcelRunning = True
Else
 IsExcelRunning = False
End If
 
End Function
 
'инициализирует (перезапускает эксель в случае повторного использов.)
Public Sub StartExcel(isVisible As Boolean)
Dim wb As Excel.Workbook
 
'checking the Excel status
If IsExcelRunning = False Then
 Set ExcelApp = New Excel.Application
 ExcelApp.Visible = isVisible
Else
 'этот случай возникает только тогда когда
 'перед вызовом этой процедуры эксель был уже запущен пользователем вне
 'этой программы; его не трогаем и создаем новый экземпляр экселя
 If ExcelApp Is Nothing Then
  Set ExcelApp = New Excel.Application
  ExcelApp.Visible = isVisible
  Exit Sub
 Else
  For Each wb In ExcelApp.Workbooks
   wb.Close False
  Next wb
  ExcelApp.Quit
  Set ExcelApp = Nothing
  Set ExcelApp = New Excel.Application
  ExcelApp.Visible = isVisible
 End If
End If
 
End Sub
 
'закрывает Эксель
Public Sub CloseExcel()
Dim wb As Excel.Workbook
 
If IsExcelRunning Then
 If ExcelApp Is Nothing Then
  Exit Sub
 Else
  For Each wb In ExcelApp.Workbooks
   wb.Close False
  Next wb
  ExcelApp.Quit
  Set ExcelApp = Nothing
 End If
End If
 
End Sub
 
'потом пример вызова
'стартуем Эксель
Call StartExcel(True)
 
With ExcelApp
 .Workbooks.Add App.Path & 'XltTimeTable.xlt'

Declare Function FindWindowByClass Lib 'user32' _
Alias 'FindWindowA' (ByVal lpClassName As String, _
ByVal lpWindowName As Long) As Long

Public oExcel As New Excel.Application
 
Private Sub Command1_Click()
oExcel.Workbooks.Add
oExcel.Visible = True
    With oExcel
       .ActiveWorkbook.Sheets.Application.Range('A6') = 'Склад'
       .ActiveWorkbook.Sheets.Application.Range('A6').Select
    
       With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlVAlignCenter
        .WrapText = True
        .Orientation = 0
        .ShrinkToFit = False
        .MergeCells = True
      End With 'Selection
    End With
     
    Set oExcel = Nothing
End Sub

      With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlVAlignCenter
        .WrapText = True
        .Orientation = 0
        .ShrinkToFit = False
        .MergeCells = True
      End With 'Selection

Function IsExcelLoad() As Boolean
On Error Resume Next
Dim ExcelApp As Object
 
    Set ExcelApp = GetObject(, 'Excel.Application')
    If Err.Number <> 0 Then
        Err.Clear
        IsExcelLoad = False
    Else
        IsExcelLoad = True
        Set ExcelApp = Nothing
    End If
 
End Function
 
Function GetExcelObject() As Object
On Error GoTo Err_Log
 
    If IsExcelLoad Then
        Set GetExcelObject = GetObject(, 'Excel.Application')
    Else
        On Error Resume Next
        Set GetExcelObject = CreateObject('Excel.Application')
        If Err.Number <> 0 Then
            Err.Clear
            Set GetExcelObject = Nothing
            Exit Function
        End If
    End If
 
Exit_Proc:
    Exit Function
Err_Log:
    Resume Exit_Proc
End Function
 
Function NewWorkbook(ExcelApp As Object) As Object
On Error GoTo Err_Log
 
    ExcelApp.Workbooks.Add
    Set NewWorkbook = ExcelApp.activeWorkbook
 
Exit_Proc:
    Exit Function
Err_Log:
    Resume Exit_Proc
End Function
 
Sub main()
Dim o As Object
Dim n As Object
 
    Set o = GetExcelObject()
    o.Visible = True
    Set n = NewWorkbook(o)
    Set o = Nothing
 
End Sub

.Workbooks.Add App.Path & 'XltTimeTable.xlt'