Insert multiple rows
 

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.

Insert multiple rows
 

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.

Insert multiple rows
 

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.