n = clng( InputBox("Enter number of rows to insert"))
ActiveCell.Resize(n).EntireRow.Insert

--
Regards,
Tom Ogilvy

"E. Edgington" wrote in message
...
Is there a way to insert multiple rows at once without
highlighting the same number of rows beforehand? I want
to prompt the user to enter their desired number of rows
to insert.