Are your sheets actually NAMED 1 and 2, in which case the quotes are
appropriate, or are you trying to refer to them by their sequence number in
the Sheets collection? If the latter, I'm not a big Excel guru but I think
Sheets(1) is the way to go.

"Wombat" wrote:

This is what I have so far. It comes up with an error 1004 message as soon as
I put the connection to the second worksheet to paste the information... I
dont understand :-(

Any help much appreciated!


Sub Wombat()

Sheets("1").Cells(3, 12).Select
x = 3
y = 24
Do Until Cells(x, 12).Value = "END"

If Cells(x, 12).Value < "" Then

Cells(x, 12).Copy

Sheets("2").Cells(y, 1).Select

ActiveSheet.Paste

Sheets("1").Cells(3, 12).Select

x = x + 1
y = y + 1

Else

x = x + 1

End If

Loop

End Sub