Sub SpaceSeven()
Dim irow As Long
For irow = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
Rows(irow).Resize(7).Insert shift:=xlDown
Next irow
End Sub


HTH

--
AP

"nihad" a écrit dans le
message de ...

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