thanks a lot! this is the first macro i've ever used in my life...
Elise

"Zygan" wrote:


hey EliseT

This should do the trick, just a once of use short macro

Sub line_space_line()
Range("A1").Select
count = 0
Do Until count = 20
ActiveCell.Offset(1, 0).Select

ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(1, 0).Select
count = count + 1
Loop


End Sub

Change the first line "Range("A1").Select" to the correct column e.g a
for a etc

If you only want it to happen for 20 rows input "Do Until count = 20"

if it is never ending rows just use this code exactly the same but will
do the whole column until and empty cell

Sub line_space_line()
Range("A1").Select

Do Until ActiveCell = 0
ActiveCell.Offset(1, 0).Select

ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(1, 0).Select

Loop


End Sub


hope it helps


zygan


--
Zygan
------------------------------------------------------------------------
Zygan's Profile: http://www.excelforum.com/member.php...o&userid=34423
View this thread: http://www.excelforum.com/showthread...hreadid=548526