Dee,

Select your cells, and run the macro below.

HTH,
Bernie
MS Excel MVP

Sub InsertRows2()
Dim myRow As Long
Dim myArea As Range
For Each myArea In Selection.Areas
For myRow = myArea.Rows.Count To 1 Step -1
myArea.Cells(myRow, 1).EntireRow.Insert
Next myRow
Next myArea
End Sub


"dee" wrote in message
...
Hi,

Thanks - I had a feeling. I guess I will struggle with writing it unless
you know of easy code.

Thanks again!

"Frank Kabel" wrote:

Hi
only possible with VBA in this case

--
Regards
Frank Kabel
Frankfurt, Germany

"dee" schrieb im Newsbeitrag
...
Hi,

Is there a way to select non-consecutive rows besides Ctrl + click.
If I
want to insert a blank row above about 40 rows, this can become quite
tedious.


--
Thanks!

Dee