Actually, the code I posted works fine as is (I tested it<g).

--
Rick (MVP - Excel)


"Dave Peterson" wrote in message
...
I'd start from the bottom up <vbg.

Rick Rothstein wrote:

Does this do what you want...

Sub InsertRows()
Dim R As Range, HowMany As Long
HowMany = InputBox("How many rows should be inserted?")
For Each R In Selection.Rows
R.Offset(1).Resize(HowMany).Insert
Next
End Sub

--
Rick (MVP - Excel)

"JohnHero" wrote in message
...
I'd like to be able to have a macro that wouod work like this:

1) I highlight the rows

2) When I run the macro, it will ask me how many rows I'd like to
insert.

3) It would then insert x number of rows after each highlighted cell.

Anybody able to help with this one?

--

Dave Peterson