Thanks for the feedback.

The reason I mentioned not tagging onto an existing thread is the danger of your
post not being picked up if readers/responders have assumed that thread has been
successfully dealt with and have not put a "watch thread" on it or have chosen
to "ignore thread".


Gord


On Thu, 17 May 2007 14:46:01 -0700, Excel Greenie
wrote:

Sorry about that. Thanks for the macro - works like a charm.

"Gord Dibben" wrote:

You should really make an attempt to create a new message rather than tagging
onto someone else's.

Having gotten that off my chest..............this macro looks at the used range
in column A on any worksheet and inserts a row after each existing row.

Sub InsertRows()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
numRows = 1
For r = r To 1 Step -1
ActiveSheet.Rows(r + 1).Resize(numRows).Insert
Next r
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Wed, 16 May 2007 19:55:00 -0700, Excel Greenie <Excel
wrote:

I need to add a row every second row in spreadsheets that differ in size.
Some have 100 rows & some have 600 rows. What would the macro be

"Bob Phillips" wrote:


For i = 400 to step -40
Cells(i,"A").Resize(5,1).entirerow.insert
Next i

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Olzki" wrote in message
...
Hi,

I'm uppdating a huge spreadsheet and are in seroius need to figure out how
to add five new rows every fourtieth row. Advise anyone? Need to do this
400
times manually otherwise...