inserting rows..!!

  • Thread starter Thread starter via135
  • Start date Start date
V

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
 
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
 
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
Click to expand...

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

-via135
 
Back
Top