You don't need to, shouldn't use Select, and you need to specify the sheet

With ExcelApp.Worksheets("Sheet1")
.Range("H2:AD2").AutoFill _
Destination:= ExcelApp.Range("H2:AD" & intRecords), _
Type:=xlFillDefault
End With
..

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Dustin Ventin" wrote in message
...
I am writing a Microsoft Access application that exports data to Excel,
and
have just started using late binding. However, I am experiecing some
errors
now that I have done so.

'Here is where I input the late binding code
Dim ExcelApp As Object
Set ExcelApp = CreateObject("Excel.Application")

'Here is where I try to copy the cell formulas to encompass all input
rows

ExcelApp.Range("H2:AD2").Select
strFields = "H2:AD" & intRecords
ExcelApp.Selection.AutoFill Destination:=ExcelApp.Range(strFields),
Type:=xlFillDefault

strFields is set to encompass all the rows that have been imported into
Excel. However, the application no longer seems to work at the last line
of
code.

ExcelApp.Selection.AutoFill Destination:=ExcelApp.Range(strFields),
Type:=xlFillDefault

Any ideas?

Thanks!

Dustin