Range.Areas (Excel)
Retorna uma coleção areas que representa todos os intervalos em uma seleção de várias áreas. Somente leitura.
Para uma seleção única, a Propriedade areas retorna uma coleção que contém um objeto, o próprio objeto Range original. Para uma seleção de várias áreas, a propriedade Areas retorna uma coleção que contém um objeto para cada área selecionada.
Dim arsAreas As Areas
Set arsAreas = ActiveCell.Areas