Adding Rows

[Guest]

I have a worksheet of appx. 500 rows. I would like to add a blank row in-between each existing row. Is there an easy way to do this?

 

[Ron de Bruin]

Hi Denver

Try this macro solution

Sub test()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim R As Long
Dim Rng As Range
numRows = 1
Set Rng = Range("a1:a500")
For R = Rng.Rows.Count To 1 Step -1
Rng.Rows(R + 1).Resize(numRows).EntireRow.insert
Next R
Application.ScreenUpdating = True
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)

I have a worksheet of appx. 500 rows. I would like to add a blank row in-between each existing row. Is there an easy way to

do this?