Hi nihad

Try this macro

Sub test()
Application.ScreenUpdating = False
Dim R As Long
Dim rng As Range
Set rng = ActiveSheet.UsedRange
For R = rng.Rows.Count To 1 Step -1
rng.Rows(R + 1).Resize(7).EntireRow.insert
Next R
Application.ScreenUpdating = True
End Sub

--
Regards Ron de Bruin
http://www.rondebruin.nl


"nihad" wrote in message
...

I have a long list with no spaces, all in one column. I am trying to
add 7 blank lines in between each row. What is the easiest way to
achieve this?

Thanks in advance


--
nihad
------------------------------------------------------------------------
nihad's Profile: http://www.excelforum.com/member.php...o&userid=30285
View this thread: http://www.excelforum.com/showthread...hreadid=515389