Looping thorugh all tasks fails after task deleted

I am trying to loop through all tasks, check them against a condition and then delete the ones that match the condition. The problem I am having is that the foreach loop exists after I delete the first task. In the code below I am trying to identify whether the task matches one in a variant array (imported from excel)

Code:

---


For Each Task In ActiveProject.Tasks
           
            If Task.Text10 = "Work Order" Then
                FoundWO = False
                For j = LBound(vData) To UBound(vData)
                    If vData(j, 2) = Task.Text3 Then 'Found the work order header, dont delete it
                        FoundWO = True
                        Exit For
                    End If
                Next j
                If FoundWO = False Then
                    Task.Delete
                End If
            End If
        Next Task

---

The loop will work fine UNTIL I delete the first task. After the delete it exits at the "Next Task" line.

Can anyone help me understand why this is happening?

Try working backwards

Code:

---

For j = UBound(vData) To LBound(vData) step -1

---

Quote:

---

I am trying to loop through all tasks, check them against a condition and then delete the ones that match the condition.

---

Code:

---

For Each Task In ActiveProject.Tasks
   
    If Task.Text10 = "Work Order" Then
      For j = UBound(vData) to LBound(vData) Step -1
            If vData(j, 2) = Task.Text3 Then 'matches condition
                        Task.Delete
            End If
            'Alternate Condition:
            'vData(j, 2) <> Task.Text3
        Next j
  End If
Next Task

---