Simple Copy & Paste

[Guest]

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

 

[Ron de Bruin]

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

 

[Guest]

Ron - It Works - Thank you

Again, the POWER of these Newsgroups

Bob

 

[Ron de Bruin]

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