I have a long list of data (2000+ rows) where I need to insert a blank row
between each line. Is there an easy way to do this so it affects the entire
sheet? Thanks

try something like this:

Sub spread_um()
n = Cells(Rows.Count, "A").End(xlUp).Row
For i = n To 1 Step -1
Rows(i).EntireRow.Insert
Next
End Sub

--
Gary''s Student - gsnu200732


"Jacobo" wrote:

I have a long list of data (2000+ rows) where I need to insert a blank row
between each line. Is there an easy way to do this so it affects the entire
sheet? Thanks

ASAP Utilities, a free add-in available at www.asap-utilities.com has a
feature that will do this easily...........

Vaya con Dios,
Chuck, CABGx3


"Jacobo" wrote in message
...
I have a long list of data (2000+ rows) where I need to insert a blank row
between each line. Is there an easy way to do this so it affects the
entire
sheet? Thanks

I would not recommend doing this if just for appearance sake.

Set the rows to double height instead.

The blank rows can mess with filtering, copying, sorting.


Gord Dibben MS Excel MVP


On Fri, 22 Jun 2007 14:14:22 -0700, Jacobo
wrote:

I have a long list of data (2000+ rows) where I need to insert a blank row
between each line. Is there an easy way to do this so it affects the entire
sheet? Thanks

Hi,

Thanks! That worked great. However, I have another question along the same
vein. Is there a way to do the exact same line insertion but have the cells
in the blank lines formatted to type text in red?
Thanks for your help.

"Gary''s Student" wrote:

try something like this:

Sub spread_um()
n = Cells(Rows.Count, "A").End(xlUp).Row
For i = n To 1 Step -1
Rows(i).EntireRow.Insert
Next
End Sub

--
Gary''s Student - gsnu200732


"Jacobo" wrote:

I have a long list of data (2000+ rows) where I need to insert a blank row
between each line. Is there an easy way to do this so it affects the entire
sheet? Thanks