If you really need it something like this should do it:


Sub InsertEmptyRows()
Dim r1 As Range
Dim r2 As Range
Dim i As Integer
Set r1 = Application.Selection
For i = r1.Rows.Count To 2 Step -1
Set r2 = r1.Rows(i).EntireRow
r2.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next
End Sub

TZS

"VB MacroMan" schrieb im Newsbeitrag
...
I have looked on the internet and through a couple forums for code to
insert a new row in every other row of a spreadsheet, I work with a lot
of data and sometimes the people above me will delete out the empty rows
and it makes spacing off so i cannot copy and paste anything out of it
and it gets old pasting adjusting 6000 excel rows and such.......I just
need a macro that i can click on a cell and it will insert a row under
it and from there down in every other row until an end row that i
specify.....thanx

Durst

*** Sent via Developersdex http://www.developersdex.com ***