Thread
:
Looping backwards through a 'For Each' collection
View Single Post
05-02-2019, 02:16 PM
ThinAirDesigns
Windows 10
Office 2003
Novice
Join Date: Sep 2018
Posts: 5
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
ThinAirDesigns
View Public Profile
Find all posts by ThinAirDesigns