The file is already saved, it's created and saved in the transfer spreadsheet action automatically.
You need to add the code for the column widths, I can't see it in the code above.
Code:
Private Sub Command1001_Click()
Dim qryName As String
Dim strSaveFile As String
Dim xlApp As Object 'Excel.Application
Dim xlWb As Object 'Workbook
Dim xlWS As Object 'Worksheet
Dim rng As Object 'Range
qryName = "qry_Label_Amendment_Schedule"
strSaveFile = Environ("USERPROFILE") & "\Desktop\LAS Report.xls"
DoCmd.TransferSpreadsheet acExport, 10, qryName, strSaveFile, True
Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Open(strSaveFile)
xlApp.Visible = True
Set xlWS = xlWb.Worksheets(1)
With xlWb.sheets(sSheet)
Set rng = .Cells(1, 1).CurrentRegion
End With
xlWS.Cells.EntireColumn.AutoFit
End Sub