Interate backward using "Step"

[quartz]

I want to loop backward through the cells in a sheet, but I don't know how.
My normal configuration for looping forward is as follows:

Dim rngCell As Range
Dim wrkSheet As ThisWorkbook.Sheets("DATA")

For Each rngCell In wrkSheet.Columns(1).UsedRange.Rows
....
....
Next

Can someone please show me how to convert this so that it will "step"
backward from the bottom of the sheet upward? Thanks much in advance.

[Norman Jones]

Hi Quartz,

Try something like:


Sub sTester02()
Dim rng As Range
Dim i As Long, j As Long
Dim sh As Worksheet

Set sh = ThisWorkbook.Sheets('"DATA")

j = Cells(Rows.Count, "A").End(xlUp).Row

For i = j To 1 Step -1
'// do something,
Next i

End Sub

---
Regards,
Norman



"quartz" <quartz@discussions.microsoft.com> wrote in message
news:0717FE69-1C86-4570-8D0E-A22D05BCE990@microsoft.com...
>I want to loop backward through the cells in a sheet, but I don't know how.
> My normal configuration for looping forward is as follows:
>
> Dim rngCell As Range
> Dim wrkSheet As ThisWorkbook.Sheets("DATA")
>
> For Each rngCell In wrkSheet.Columns(1).UsedRange.Rows
> ...
> ...
> Next
>
> Can someone please show me how to convert this so that it will "step"
> backward from the bottom of the sheet upward? Thanks much in advance.