Iterate Range

[AlexanderBB]

Just wondering if there's a preferred way to extract the High and low row numbers. My range address is $C$54:$C$400.
Do I use a For-Next Loop ? If yes, is 54 and 400 available from the range ? I could Split on "$" and remove the ':' but doesn't seem very elegant.
I looked at For each item In range ( cell1, cell2) but that would need still need the range values.
There's also a need sometimes to go 400 to 54.

 

[kvsrinivasamurthy]

For iteration ascending.

Sub Iterate1()
Dim adr
Dim cel As Range
For Each cel In Range("$C$54:$C$400")
adr = cel.Address
Next cel
End Sub

For iteration descending.

Sub Iterate2()
Dim adr,  T&
Dim cel As Range
For T = 0 To  Range("$C$54:$C$400").Rows.Count
adr = Range(Split("$C$54:$C$400", ":")(1)).Offset(-T, 0).Address
'adr = cel.Address
Next T
End Sub