Selection EntireRow Insert

[Rob]

Using Excel 2000.

I need to insert a number of rows and using the following code seems wrong
insomuch that the code is repeated for the number of rows required, is there
a more simple solution?

Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert

Thanks, Rob

 

[Mike H]

Maybe

Sub stance()
response = InputBox("How many rows to insert")
On Error GoTo enditall
For x = 1 To response
Selection.EntireRow.Insert
Next
enditall:
End Sub

Mike

 

[merjet]

This will insert multiple rows at once.
Rows("5:7").Insert Shift:=xlDown
You can work with it to better suit what you want.

Hth,
Merjet

 

[Dave Peterson]

activecell.Resize(5, 1).EntireRow.Insert

Would insert 5 rows.

 

[Rob]

Thanks for the recommendations, have used Dave's as it best fitted my needs.
Like the idea of looping and will use this for another routine.

Regards, Rob