numRows = InputBox("Supply number of rows")
If numRows < "" Then
Activecell.Resize(numRows,1).Entirerow.Insert
End If

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"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.