I have selected four cells in a single column and set a range to them. Then
I want to iterate through each cell of the range. The first pass works
fine, and affects the top cell of the selected cells. The next pass,
though, affects the cell to the right of the top cell, which is not supposed
to be included in the range! Why does this jump out of the range I've set?

Ed

Dim rng As Range
Dim cll As Cell
Set rng = Selection.Range
rng.HighlightColorIndex = wdBrightGreen
' Highlight affects only selected cells,
' indicating range is set properly.
For Each cll In rng.Cells
' Do Stuff
Next cll

Hi Ed,

I'm not sure where (if anywhere) this is documented, but you can't assign a
table column to a range. A Word range always starts in the first cell and
goes left to right to the end of the row, then to the first cell in the next
row and across -- just like the order you'd see if you tabbed from cell to
cell. The column of cells, if you could assign it, would be seen as a
discontinuous series of subranges, something VBA doesn't support. The user
interface does some magic to let you select a column, but VBA doesn't get
the use of that.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

Ed wrote:
I have selected four cells in a single column and set a range to
them. Then I want to iterate through each cell of the range. The
first pass works fine, and affects the top cell of the selected
cells. The next pass, though, affects the cell to the right of the
top cell, which is not supposed to be included in the range! Why
does this jump out of the range I've set?

Ed

Dim rng As Range
Dim cll As Cell
Set rng = Selection.Range
rng.HighlightColorIndex = wdBrightGreen
' Highlight affects only selected cells,
' indicating range is set properly.
For Each cll In rng.Cells
' Do Stuff
Next cll

Thanks, Jay. Now I seem to remember being told that over a year ago, but
when you don't use it, you lose it.
I appreciate the boost.
Ed

"Jay Freedman" wrote in message
...
Hi Ed,

I'm not sure where (if anywhere) this is documented, but you can't assign
a
table column to a range. A Word range always starts in the first cell and
goes left to right to the end of the row, then to the first cell in the
next
row and across -- just like the order you'd see if you tabbed from cell to
cell. The column of cells, if you could assign it, would be seen as a
discontinuous series of subranges, something VBA doesn't support. The user
interface does some magic to let you select a column, but VBA doesn't get
the use of that.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup
so
all may benefit.

Ed wrote:
I have selected four cells in a single column and set a range to
them. Then I want to iterate through each cell of the range. The
first pass works fine, and affects the top cell of the selected
cells. The next pass, though, affects the cell to the right of the
top cell, which is not supposed to be included in the range! Why
does this jump out of the range I've set?

Ed

Dim rng As Range
Dim cll As Cell
Set rng = Selection.Range
rng.HighlightColorIndex = wdBrightGreen
' Highlight affects only selected cells,
' indicating range is set properly.
For Each cll In rng.Cells
' Do Stuff
Next cll