Sub test1()
Worksheets("Sheet1").Range("data").Copy
With Worksheets("Sheet2")
.Paste Destination:=.Range("a20")
End With
End Sub

perhaps.

--
Regards,
Tom Ogilvy


"GreenInIowa" wrote in message
...
Hi,

I have a simple code to paste some data which is in "Sheet1" to "Sheet2".
==========
Sub test1()
Worksheets("Sheet1").Range("data").Copy
Worksheets("Sheet2").Paste Destination:=Range("a20")
End Sub
=======

Although I am clearly defining that it should paste on "Sheet2" it
nevertheless pastes on "Sheet1". Any explanation why it does not paste on
"Sheet2"?

Thanks.