Hi Teresa,

Try:

Sheets("Sheet1").Range("A1:C3").Copy Sheets("Sheet2").Range("A1")

---
Regards,
Norman



"teresa" wrote in message
...
Hi,

I am trying to copy a range of cells (A1:C3)
from Sheet 1 to Sheet 2
The code below doesn't work, can anyone assist,
Thanks

Sub cop()
Dim i, j
For i = 1 To 3
For j = 1 To 3

Sheets("Sheet1").Cells(i, j).Copy
Sheets("Sheet2").Paste Cells(i, j)

Next
Next

End Sub