Опять наболевшая проблема с закрытием Excel, Предложеные способы не раб.

  Dim objExcel As Excel.Application
  Dim objExcelBook As Excel.Workbook
  Dim objExcelSheet As Excel.Worksheet
  Dim intRowCount, intColCount As Variant
  
  Set objExcel = New Excel.Application
  Set objExcelBook = objExcel.Workbooks.Open(OpenDialog.FileName)
  Set objExcelSheet = objExcelBook.Worksheets(1)
 
  intRowCount = Range('A1').SpecialCells(xlLastCell).Row
  intColCount = Range('A1').SpecialCells(xlLastCell).Column
 
  for x = 1 to intRowCount
    strNameCable = Trim(objExcelSheet.Cells(x, 2).Value)
    strParamCable = Trim(objExcelSheet.Cells(x, 3).Value)
    strTypeCable = Trim(objExcelSheet.Cells(x, 6).Value)
    CostWithoutNDS = objExcelSheet.Cells(x, 4).Value
    CostWithNDS = objExcelSheet.Cells(x, 5).Value
    ......
    'операции с данными
    ......
  next x
 
  objExcelBook.close
  objExcel.Quit
 
  Set objExcel = Nothing
  Set objExcelBook = Nothing
  Set objExcelSheet = Nothing

objExcelBook.close False
'                  ^^^^^
objExcel.Quit 
' и в другом порядке:
Set objExcelSheet = Nothing
Set objExcelBook = Nothing 
Set objExcel = Nothing

objExcel.DisplayAlerts = False

objExcelBook.close False

objExcel.Workbooks.Add