Answered by : tender-termite-3ufvtpt3tm64

Dim rng As Range: Set rng = Application.Selection
Dim rngArea As Range
For Each rngArea In rng.Areas Debug.Print rngArea.Address
Next rngArea

Source : https://www.codevba.com/excel/for_each_cell_in_range.htm#.YeLa0tWZOK4 | Last Update : Sat, 22 Jan 22