For Each turnplot In
Workbooks("AF-Scenario").Worksheets("HexArray").Range("D30:D429" ).Cells

is causing a "Runsub script out of range" error.

AF-Scenario is open but is not the active sheet (the macro is running from
the active sheet and the code inside the loops are drawing shapes and lines
to the active sheet)

The error occurs, the very first time, the For Each... is executed. The
loop statment getting the error is the fourth loop in the macro. The other 3
loops are working fine and all 3 use this type of code:
For Each n In
Workbooks("AF-Scenario.xls").Worksheets("HexArray").Range("D30:D 429").Cells

Why would this kind of loop work 3 times in a row then the 4th time (only
difference is that "n" is now "turnplot") it gets the subscript error...

I am deleting a group of autoshapes (on the active sheet) in a loop just
prior to the 4th loop. But I do the same thing for all the lines just prior
to the 1st loop.

The 1st three loops are looking at the exact same range of cells even...

Any suggestions are appreciated.
--
Regards,
John

Correction:
"Run-time error 9: Sub-script out of range"

is the complete error text...



"John Keith" wrote:

For Each turnplot In
Workbooks("AF-Scenario").Worksheets("HexArray").Range("D30:D429" ).Cells

is causing a "Runsub script out of range" error.

AF-Scenario is open but is not the active sheet (the macro is running from
the active sheet and the code inside the loops are drawing shapes and lines
to the active sheet)

The error occurs, the very first time, the For Each... is executed. The
loop statment getting the error is the fourth loop in the macro. The other 3
loops are working fine and all 3 use this type of code:
For Each n In
Workbooks("AF-Scenario.xls").Worksheets("HexArray").Range("D30:D 429").Cells

Why would this kind of loop work 3 times in a row then the 4th time (only
difference is that "n" is now "turnplot") it gets the subscript error...

I am deleting a group of autoshapes (on the active sheet) in a loop just
prior to the 4th loop. But I do the same thing for all the lines just prior
to the 1st loop.

The 1st three loops are looking at the exact same range of cells even...

Any suggestions are appreciated.
--
Regards,
John

See the obvious difference

Workbooks("AF-Scenario").Worksheets("HexArray").Range("D30:D429" ).Cells
Workbooks("AF-Scenario.xls").Worksheets("HexArray").Range("D30:D 429").Cells

the one that works has .xls on the end of the workbook name.

--
Regards,
Tom Ogilvy


"John Keith" wrote in message
...
Correction:
"Run-time error 9: Sub-script out of range"

is the complete error text...



"John Keith" wrote:

For Each turnplot In
Workbooks("AF-Scenario").Worksheets("HexArray").Range("D30:D429" ).Cells

is causing a "Runsub script out of range" error.

AF-Scenario is open but is not the active sheet (the macro is running
from
the active sheet and the code inside the loops are drawing shapes and
lines
to the active sheet)

The error occurs, the very first time, the For Each... is executed.
The
loop statment getting the error is the fourth loop in the macro. The
other 3
loops are working fine and all 3 use this type of code:
For Each n In

Workbooks("AF-Scenario.xls").Worksheets("HexArray").Range("D30:D 429").Cells

Why would this kind of loop work 3 times in a row then the 4th time
(only
difference is that "n" is now "turnplot") it gets the subscript error...

I am deleting a group of autoshapes (on the active sheet) in a loop just
prior to the 4th loop. But I do the same thing for all the lines just
prior
to the 1st loop.

The 1st three loops are looking at the exact same range of cells even...

Any suggestions are appreciated.
--
Regards,
John

Sometimes I need to be smacked in the face with it. I'm glad I pasted each
example so you could catch that for me. I thought I had had the code
working before, but i forgot that I had copied the 4th loop and had to add
the workbooks portion of that statement... Thanks Tom

"Tom Ogilvy" wrote:

See the obvious difference

Workbooks("AF-Scenario").Worksheets("HexArray").Range("D30:D429" ).Cells
Workbooks("AF-Scenario.xls").Worksheets("HexArray").Range("D30:D 429").Cells

the one that works has .xls on the end of the workbook name.

--
Regards,
Tom Ogilvy


"John Keith" wrote in message
...
Correction:
"Run-time error 9: Sub-script out of range"

is the complete error text...



"John Keith" wrote:

For Each turnplot In
Workbooks("AF-Scenario").Worksheets("HexArray").Range("D30:D429" ).Cells

is causing a "Runsub script out of range" error.

AF-Scenario is open but is not the active sheet (the macro is running
from
the active sheet and the code inside the loops are drawing shapes and
lines
to the active sheet)

The error occurs, the very first time, the For Each... is executed.
The
loop statment getting the error is the fourth loop in the macro. The
other 3
loops are working fine and all 3 use this type of code:
For Each n In

Workbooks("AF-Scenario.xls").Worksheets("HexArray").Range("D30:D 429").Cells

Why would this kind of loop work 3 times in a row then the 4th time
(only
difference is that "n" is now "turnplot") it gets the subscript error...

I am deleting a group of autoshapes (on the active sheet) in a loop just
prior to the 4th loop. But I do the same thing for all the lines just
prior
to the 1st loop.

The 1st three loops are looking at the exact same range of cells even...

Any suggestions are appreciated.
--
Regards,
John