Simple Copy & Paste

  • Thread starter Thread starter Guest
  • Start date Start date
G

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
 
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
 
Back
Top