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

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

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

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

thank you so much! It worked like a charm.

Do you have any suggestions as to a Web site that has free tutorials for VBA?

Thanks!

"Bernie Deitrick" wrote:

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

Bernie:

If it wouldn't be too much trouble, would you mind terribly explaining what
each line of code does?

Thanks!

"dee" wrote:

thank you so much! It worked like a charm.

Do you have any suggestions as to a Web site that has free tutorials for VBA?

Thanks!

"Bernie Deitrick" wrote:

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