Insert multiple rows

E

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

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)
 
T

Tom Ogilvy

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