Microsoft Office Forums - View Single Post - VBA

silentwolf · 07-31-2017, 08:55 AM

Hi,

Code:

Sub DeleteMsProjectTaskNeu()
    Dim proj As Project
    Dim t As Task
    Set proj = ActiveProject

        For Each t In proj.Tasks
            If t.Text1 = "I" Then
                t.Delete
            End If
        Next t

End Sub

I just tested this code and it works for me but I am not that good in ms project VBA so I hope this works for you too!

Make sure you save your project before testing!!
And maybe someone other has a look at this code too .-)

HTH

SW