Erro Exportar com formatação

Prezados bom dia!!!

Estou tentando exportar uma consulta para Excel, porem, depois que esporta o arquivo e ao abrir, vejo que ele não fez as formatações  devidas, e apresenta um erro como mostra abaixo,


Estou usando este código, alguém poderia me dizer o porque deste erro,

Código:

  strCaminho = CurrentProject.Path & "\QFAM_461_C13" & "_" & Format(Now, "ddmmyy") & ".xlsx"
  Dim xls As Object
  DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "QFAM_461", strCaminho, True
  Set xls = CreateObject("Excel.Application")
 
    xls.Workbooks.Open (strCaminho)
    xls.visible = True
 
    xls.Range("A1").Select
    xls.Range(Selection, Selection.End(xlToRight)).Select
    xls.Range(Selection, Selection.End(xlDown)).Select
    With xls.Selection.Font
        .Name = "Calibri"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    xls.Range("A1").Select
    xls.Range(Selection, Selection.End(xlToRight)).Select
    xls.Selection.Font.Bold = True
    xls.Selection.AutoFilter
    With xls.ActiveWindow
        .SplitColumn = 0
        .SplitRow = 1
    End With
    xls.ActiveWindow.FreezePanes = True
    xls.Columns("A:A").Select
    xls.Range(Selection, Selection.End(xlToRight)).Select
    xls.Columns("A:FO").EntireColumn.AutoFit
     
    xls.ActiveWorkbook.Save
    xls.Application.Quit
    Set xls = Nothing

att; Sidney

Sidney, algum avanço aqui?

Aguardamos...