Copying cells from one sheet to another...

[Butane]

Im trying to copy cells from one sheet to another. This is the current code im using:

For x = 0 To 10
Worksheets("sheet1&quot.Range("A2&quot.Offset(x, 0).Value = Worksheets("sheet2&quot.Range(currentcell.Offset(x, 0)).Value
Next x

Although every time I run it doesnt work. I cant see whats wrong with the code.
Can anyone sort it out/show me better code?

Thanks.

 

[Mossoft]

There is no object called "CurrentCell". If you want to refer to the currently active cell:

For x = 0 To 10
Worksheets("sheet1&quot.Range("A2&quot.Offset(x, 0).Value = ActiveCell.Offset(x, 0).Value
Next x

Before you run this code you must ensure that the currently active cell is right one e.g. worksheets(&quot;Sheet2&quot.cells(<row>,<column>).activate

M.