Copy excel cells using access

[Tangent]

I get "Run-time error '1004' Unable to get the PasteSpecial property of the Range class" when it gets to the following line of code

xlSheet.Range(xlSheet.Cells(xlRowSelect, 1), xlSheet.Cells(xlRowSelect, 26)).Copy xlSheet.Range(xlSheet.Cells(xlRowSelect + 1, 1), xlSheet.Cells(xlRowSelect + 1, 26)).PasteSpecial(xlPasteFormats)

I gather I am using the Copy and Paste Special method incorrectly but can't figure out how. Any ideas how to fix it or how to do a Autofill for the cell formatting instead?

 

[Norie]

Try putting the PasteSpecial on a different line.

xlSheet.Range(xlSheet.Cells(xlRowSelect, 1), xlSheet.Cells(xlRowSelect, 26)).Copy 

xlSheet.Range(xlSheet.Cells(xlRowSelect + 1, 1), xlSheet.Cells(xlRowSelect + 1, 26)).PasteSpecial(xlPasteFormats)

 

[Tangent]

That did the trick thanks.