Question : Access output form

Hi,

I have the following code which outputs a table from Access to Excel.

Can someone advise of the code to automatically sum columns D to U regardless of how many rows are in the Spreadsheet.

Thanks Seamus

Private Sub Command0_Click()
Dim strFile As String
strFile = "F:\BankingandSupport.xls"
'DoCmd.OutputTo acOutputForm, Me.BankingandSupport, acFormatXLS, strFile, False
DoCmd.OutputTo acOutputTable, "Ecomm VS Mkt Data", acFormatXLS, strFile, False

Dim oXL As Object
Dim oWB As Object
Dim oWS As Object

Set oXL = CreateObject("Excel.Application")
Set oWB = oXL.Workbooks.Open(strFile)
Set oWS = oWB.Sheets(1)
oWS.Cells.Font.Size = 10
oWS.Rows(1).Font.Bold = True
oWS.UsedRange.EntireColumn.AutoFit
oXL.Visible = True

Set oWS = Nothing
Set oWB = Nothing
Set oXL = Nothing

End Sub

Answer : Access output form

Have you tried deleting the mail profile and recreating it?