VBA Excel paste from access function fails every second time it runs!

[info]

I am pasting in a recordset from access to an excel sheet via VBA
successfully. Then my routine copies a range of cells and pastes them
into another range, this works fine every other time it runs. Every
other run of the code it fails at the line Selection.Copy with a
Runtime error 91:. I then run it again and it works fine. This is
really puzzling me a snippet of my code is below. Any ideas?

>>>>>>>>>>> >>>>>>>

ExcelApp.Workbo oks.Open ("C:\Test.xl s")

Set ExcelSheet = ExcelApp.Worksh eets("Sheet1")
ExcelSheet.Rang e("B13").CopyFr omRecordset rs
ExcelSheet.Rang e("O13:X13").Se lect
Selection.Copy ' Code fails here every second time it runs with Runtime
error 91:
ExcelSheet.Rang e(Cells(14, 15), Cells(rec + 12, 24)).Select
ActiveSheet.Pas te

ExcelApp.Active Workbook.Save
ExcelApp.Quit

[MacDermott]

Try using
ExcelSheet.Sele ction.Copy

Also be sure to close your ActiveWorkbook before you do your Quit,
and set ExcelApp=Nothin g

Once you've run this code, it's a good idea to check in your Task Manager on
the Processes tab to make sure you're not leaving a "zombie" Excel instance.

HTH

<in**@lowerbill .co.uk> wrote in message
news:11******** *************@g 47g2000cwa.goog legroups.com...

I am pasting in a recordset from access to an excel sheet via VBA
successfully. Then my routine copies a range of cells and pastes them
into another range, this works fine every other time it runs. Every
other run of the code it fails at the line Selection.Copy with a
Runtime error 91:. I then run it again and it works fine. This is
really puzzling me a snippet of my code is below. Any ideas?

>>>>>>>>>>>> >>>>>>>

ExcelApp.Workbo oks.Open ("C:\Test.xl s")

Set ExcelSheet = ExcelApp.Worksh eets("Sheet1")
ExcelSheet.Rang e("B13").CopyFr omRecordset rs
ExcelSheet.Rang e("O13:X13").Se lect
Selection.Copy ' Code fails here every second time it runs with Runtime
error 91:
ExcelSheet.Rang e(Cells(14, 15), Cells(rec + 12, 24)).Select
ActiveSheet.Pas te

ExcelApp.Active Workbook.Save
ExcelApp.Quit

[info]

Thanks for the tips. Yes a "zombie" excel instance was being left.
Sorted by ensuring the ActiveWorkbook was properly closed. Also
hooking up to an already running instance when initiating. Solutions
to these problems found on this message board.