Can you copy it all at once

Range("XY").Copy Destination:=worksheets("Sheet2").Range("C9")


to loop through the rows.

irw = 10
for each rw in Range("XY").Rows
rw.copy Destination:=Worksheets("Sheet2").Cells(irw,1)
irw = irw + 3
Next

--
Regards,
Tom Ogilvy


"M." wrote in message
...
I forgot to mension that this range have name "XY".

Milos

"M." wrote in message
...
Thank's Tom, in mintime i found this in help and now i try something
else,
i
have range 12 x 5 (row=12 and column=5). I'd like to cycled with for
loop
throw each range row and put row value to exact location on next sheet.
Do
you have some idea how to get each row from range and put it to next
sheet.

Regards,
Milos


"Tom Ogilvy" wrote in message
...
Dim i as long, numrows as Long
numRows = 10000
for i = 1 to numrows
' code to process row
if i mod 100 = 0 then
Application.StatusBar = i & " rows processed"
end if
Next
Application.StatusBar = True

--
Regards,
Tom Ogilvy

"M." wrote in message
...
I'd like to show (like progres bar show ) msg in status bar how many
rows
was procesed!

I need some suggestion!

Milos