I'm trying to format an Excel worksheet from within Access XP, and I'm
having a few leetle problems. The main one is that the Save method is
not saving the updated workbook.

The following code manages to open the workbook, and I can see the
format changes happening on the screen, but the updated workbook is not
saved:

Public Sub FormatWorksheet(strExcelFilePath As String)
Dim objXLApp As Excel.Application
Dim objXLBook As Excel.Workbook
Dim objXLSheet As Excel.Worksheet
Dim objXLRangeHeader As Excel.Range

Set objXLBook = GetObject(strExcelFilePath)
Set objXLSheet = objXLBook.Worksheets(1)
Set objXLRangeHeader = objXLSheet.Range("A1:M1")
Set objXLApp = objXLBook.Parent
objXLApp.Visible = True
objXLSheet.Visible = True

objXLRangeHeader.Font.Bold = True
objXLRangeHeader.WrapText = True
objXLSheet.Columns("A:M").AutoFit
objXLBook.Save
objXLBook.Close
End Sub

Any help would be appreciated.