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" wrote:

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