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
"Dave Peterson" wrote in message
...
activecell.Resize(5, 1).EntireRow.Insert

Would insert 5 rows.

Rob wrote:

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

--

Dave Peterson