Looping backwards through a 'For Each' collection

[ThinAirDesigns]

Here is the usual VBA code for looping through all tasks in Projects:



For Each t In ActiveProject.Tasks
{code for desired action}
Next t

This loops through from the top down (as far as I can tell).

Anyone have any ideas as to how I can reverse this and go from the bottom up?

Thanks
JB

[ThinAirDesigns]

Solved (with all credit to Tom Boyle)

Sub BackTasks()
Dim t As Task

Dim i As Long

For i = ActiveProject.Tasks.Count To 1 Step -1

Set t = ActiveProject.Tasks(i)

If Not t Is Nothing Then

'Your Code Here

End If

Next i

End Sub