need to create a loop that copies each row to a different sheet. . . . .
..row2 to sheet(2).range (A2), row3 to sheet(3) range (A2) etc. from
a single worksheet.

why not
rows("2:66").copy sheets("yoursheet").rows(2)


--
Don Guillett
SalesAid Software
(E-Mail Removed)
"MFR" <(E-Mail Removed)> wrote in message
news:4FC85E81-7FA4-4E12-9851-(E-Mail Removed)...
> need to create a loop that copies each row to a different sheet. . . . .
> .row2 to sheet(2).range (A2), row3 to sheet(3) range (A2) etc. from
> a single worksheet.
>

Hi,

You can use

For I = 1 to 100 'Or more times
Sheets("2").cells(1+I,1).value = Sheets("1").cells(1+I,1).value 'this is
for the 1º column
Sheets("2").cells(1+I,2).value = Sheets("1").cells(1+I,2).value 1 'for the
2º column

Next I


"MFR" escreveu:

> need to create a loop that copies each row to a different sheet. . . . .
> .row2 to sheet(2).range (A2), row3 to sheet(3) range (A2) etc. from
> a single worksheet.
>

Renato---
Thanks, I see how this will loop through rows, how can I get it to loop
through the entire workbook simultaneously.

row2 in worksheet2
row3 in worksheet3
row4 in worksheet4

"Renato M. T." wrote:

> Hi,
>
> You can use
>
> For I = 1 to 100 'Or more times
> Sheets("2").cells(1+I,1).value = Sheets("1").cells(1+I,1).value 'this is
> for the 1º column
> Sheets("2").cells(1+I,2).value = Sheets("1").cells(1+I,2).value 1 'for the
> 2º column
>
> Next I
>
>
> "MFR" escreveu:
>
> > need to create a loop that copies each row to a different sheet. . . . .
> > .row2 to sheet(2).range (A2), row3 to sheet(3) range (A2) etc. from
> > a single worksheet.
> >

just create a

for i = 2 to 4
do your thing (think about it)
next i

--
Don Guillett
SalesAid Software
(E-Mail Removed)
"MFR" <(E-Mail Removed)> wrote in message
news:C87D69C9-998C-4BFB-9764-(E-Mail Removed)...
> Renato---
> Thanks, I see how this will loop through rows, how can I get it to loop
> through the entire workbook simultaneously.
>
> row2 in worksheet2
> row3 in worksheet3
> row4 in worksheet4
>
> "Renato M. T." wrote:
>
>> Hi,
>>
>> You can use
>>
>> For I = 1 to 100 'Or more times
>> Sheets("2").cells(1+I,1).value = Sheets("1").cells(1+I,1).value 'this is
>> for the 1º column
>> Sheets("2").cells(1+I,2).value = Sheets("1").cells(1+I,2).value 1 'for
>> the
>> 2º column
>>
>> Next I
>>
>>
>> "MFR" escreveu:
>>
>> > need to create a loop that copies each row to a different sheet. . . .
>> > .
>> > .row2 to sheet(2).range (A2), row3 to sheet(3) range (A2) etc. from
>> > a single worksheet.
>> >