Как перебрать произвольно выделенные ячейки в Excel? - VB

<br>Public Sub Walk()
<br>Dim iArea <font color="blue">As</font> Range
<br>Dim iRange <font color="blue">As</font> Range
<br><font color="blue">For</font> Each iArea In Selection.Areas
<br>    <font color="blue">For</font> Each iRange In iArea
<br>        Debug.<font color="blue">Print</font> iRange.Address
<br>    <font color="blue">Next</font> iRange
<br><font color="blue">Next</font> iArea
<br><font color="blue">End</font> Sub
<br>