I'm an Access Programmer using automation to send Access data to Excel

I have seven named Ranges accepting Access data. I want to copy & paste the data (no formulas here)
They will be used to find a true Average of the seven Ranges

My code is..
Sheets("110-210").Select: Range("SOne").Select: Selection.Cop
Sheets("350-450").Select: Range("TOne").Clear: Range("TOne").Selec
ActiveSheet.Past

If fails at "ActiveSheet.Paste" "TOne" has 12 Cells as does "SOne"
Maybe the "Range("TOne").Select" is the problem

TIA - Bo

Try this one without selecting Bob

Sub test()
Sheets("350-450").Range("TOne").Clear
Sheets("110-210").Range("SOne").Copy _
Sheets("350-450").Range("TOne")
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Bob Barnes" wrote in message ...
I'm an Access Programmer using automation to send Access data to Excel.

I have seven named Ranges accepting Access data. I want to copy & paste the data (no formulas here).
They will be used to find a true Average of the seven Ranges.

My code is...
Sheets("110-210").Select: Range("SOne").Select: Selection.Copy
Sheets("350-450").Select: Range("TOne").Clear: Range("TOne").Select
ActiveSheet.Paste

If fails at "ActiveSheet.Paste" "TOne" has 12 Cells as does "SOne".
Maybe the "Range("TOne").Select" is the problem?

TIA - Bob

Ron - It Works - Thank you

Again, the POWER of these Newsgroups

Bob

Note:
The first line you don't need Bob to clear the range



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Bob Barnes" wrote in message ...
Ron - It Works - Thank you.

Again, the POWER of these Newsgroups.

Bob