Multiple blank lines, between multiple lines

[Wishmaster]

Title sounds silly doesnt it?

I was wondering how i could format a column to insert 3 rows betwee
each row.
as if it were going from

option1
option2
option3

to

option1



option2



option3

and so on...

I'm pretty sure that it has something to do with
Selection.Insert Shift:=xlDown
and
Rows(":").Select
but i don't know enough about excel programming to make th
association.

I hope you guys can help!!

 

[Tom Ogilvy]

Sub AddRows()
Dim rng as Range, i as Long
set rng = cells(rows.count,1).End(xlup)
for i = rng.row to 2 step -1
cells(i,1).Resize(,3).EntireRow.Insert
Next
End Sub