Dim a As Range
Dim cell As Range

For Each a In Selection.Areas
For Each cell In a
Debug.Print cell.Address
Next 'cell
Next 'a

You should add error code in case Selection is not a range.

NickHK

"maxcad" wrote in message
...
I am trying to sequentially access cells with multple selection areas. I
know that Selection.Areas(1) is supposed to be the first group of selected
cells, but how do I access them? Selection.Areas(1).Cells(1,1) doesn't
work.

Any insights would be appreciated.