Is it possible to add a blank row under every existing row in excel
spreadsheet without have to right clike and add 2,000 times in 2,000 line
speadsheet?

For i = Cells(ROws.Count,"A").End(xlUp).Row To 1 Step -1
Rows(i+1).Insert
Next i

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Geo" wrote in message
...
Is it possible to add a blank row under every existing row in excel
spreadsheet without have to right clike and add 2,000 times in 2,000 line
speadsheet?

-in a helper column, add a series of odd numbers 1-3999 to your 2000 rows.
(enter 1,3,5. Select those 3 cells. Grab the bottom right "handle" with
right mouse button & drag down to 2000. Select "Fill Series")
-in the next (empty) 2000 rows add a series of even numbers 2-4000
-sort on the helper column
-delete the helper column

--
George Nicholson

Remove 'Junk' from return address.


"Geo" wrote in message
...
Is it possible to add a blank row under every existing row in excel
spreadsheet without have to right clike and add 2,000 times in 2,000 line
speadsheet?