View Single Post
Old 05-02-2019, 02:16 PM
ThinAirDesigns ThinAirDesigns is offline Windows 10 Office 2003
Join Date: Sep 2018
Posts: 5
ThinAirDesigns is on a distinguished road

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
Reply With Quote