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