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;

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