I’m trying to update cells in an Excel Worksheet using UFT 14.01. The script runs without error, but when it finishes, the cells are not updated. My code is below. Any ideas why it’s not working?

Set objExcelApp = createobject("excel.application")

Set objFSO = CreateObject("Scripting.FileSystemObject")
blnReturn = objFSO.FileExists(ExcelFileLocation)
If blnReturn Then
objExcelApp.Workbooks.Open ExcelFileLocation
WorkbookName=objExcelApp.ActiveWorkbook.Name
objExcelApp.Application.Visible = true
objExcelApp.sheets("Invoices").activate

Set OrderInvoices = objExcelApp.Sheets("Invoices")
Set SheetName = objExcelApp.Sheets("SheetName")

OrderInvoices.cells(1,1) = "Customer Number"
OrderInvoices.cells(1,2) = "Invoice Number"
OrderInvoices.cells(1,3) = "Order Issue Date"
OrderInvoices.cells(1,4) = "Order Delivery Date"

objExcelApp.ActiveWorkbook.Save
objExcelApp.ActiveWorkbook.Close
objExcelApp.Application.Quit

Set OrderInvoices =nothing
Set objExcelApp = nothing
Set SheetName=nothing