Insert multiple rows

[E. Edgington]

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.

 

[Bob Phillips]

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)

 

[Tom Ogilvy]

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