xxxxxxxxxx
'assuming range is 0 to 10, both inclusive
For i = 0 to 10
'body of loop
Loop
xxxxxxxxxx
Dim rng As Range: Set rng = Application.Selection
Dim rngArea As Range
For Each rngArea In rng.Areas
Debug.Print rngArea.Address
Next rngArea