Range.Areas (Excel)

Returns an Areas collection that represents all the ranges in a multiple-area selection.

For a single selection, the Areas property returns a collection that contains one object—the original Range object itself. For a multiple-area selection, the Areas property returns a collection that contains one object for each selected area.

Dim arsAreas As Areas
Set arsAreas = ActiveCell.Areas