Counting By Range

[brettvba]

if i set a range by currentregion
how do i get the for statement to go through each cell address in the range till it finds what its after?

 

[Ivan F Moala]

On 2002-04-29 19:55, brettvba wrote:
if i set a range by currentregion
how do i get the for statement to go through each cell address in the range till it finds what its after?

do something like this;

<pre/>
Sub Tester()
Dim MyRg As Range
Dim oCell As Range
'Note D8 is the Top left cell
'of the current region you want

Set MyRg = Range("D8").CurrentRegion

For Each oCell In MyRg
MsgBox oCell & oCell.Address
Next

End Sub

 

[brettvba]

Thanks Ivan