inserting rows..!!

[via135]

hi

is there any macro to insert rows
between alternate rows in a selection..?

for example..i am selecting R1:R10
and i need blank rows between R1 & R3....R3 & R5....R5 & R7..so on..!

any hlp pl..?

-via135

 

[Joel]

Sub InsertRows()

MyRows = Selection.Rows.Count

For RowCount = (Selection.Row + MyRows - 1) To (Selection.Row + 1) Step -1

Rows(RowCount).Insert
Next RowCount


End Sub

 

[via135]

Sub InsertRows()

MyRows = Selection.Rows.Count

For RowCount = (Selection.Row + MyRows - 1) To (Selection.Row + 1) Step-1

   Rows(RowCount).Insert
Next RowCount

End Sub

thks..joel..!
it works like a charm..!
thks again!

-via135