inserting rows..!!
 

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

inserting rows..!!
 

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

inserting rows..!!
 

On Jul 31, 7:28*am, Joel wrote:
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

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

-via135