I have this little VBA module that formats a spreadsheet in Exce that is exported from Access. I need to add the font being Arial, the size of the font being 8 and the top row being frozen. Below is the code I have that does most of the formatting except the items I need to add. Any help is appreciated.
If this should be posted in the Excel Help forum please let me know and I will repost there.

Formatting:
Function FormatExcel(strFilename As String, strTabNames As String)
Dim objXL
Set objXL = CreateObject("Excel.Application")
objXL.DisplayAlerts = False
With objXL
.Workbooks.Open (strFilename)

' Rename Tabs - optional
Dim i As Integer
i = 1
If Len(strTabNames) Then
arrNames = Split(strTabNames, "|")
For Each strTabName In arrNames
.Worksheets(i).Name = strTabName
.Worksheets(i).AutoFilterMode = False
.Worksheets(i).Range("A1").AutoFilter
.Worksheets(i).Rows("1").Font.Bold = True
.Worksheets(i).Rows("1").Interior.Color = RGB(191, 191, 191)
.Worksheets(i).Columns("A:AQ").Columns.AutoFit
i = i + 1
Next
End If

.ActiveWorkBook.Save
.ActiveWorkBook.Close

End With
objXL.DisplayAlerts = True
Set objXL = Nothing
End Function