Inserting blank rows in Excel.

In Excel, is it possible to insert a 'blank' (new) row between each row of
exisitng text?

Try the following VBA macro:

Sub InsertRows()
Dim RowNdx As Long
Dim LastRow As Long

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For RowNdx = LastRow To 2 Step -1
Rows(RowNdx).Insert
Next RowNdx

End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"kwm5321" <kwm5321@discussions.microsoft.com> wrote in message
news:38D30B68-D227-4FD3-B066-13B7F6EAE3FD@microsoft.com...
> In Excel, is it possible to insert a 'blank' (new) row between
> each row of
> exisitng text?