Task.Flag2 Property (Project)
Gets or sets the value of a task flag custom field. Read/write Variant.
expression A variable that represents a Task object.
The following example deletes all the tasks that have the Flag1 set to True.
Sub DeleteNonEssentialTasks() Dim T As Task ' Task object used in For Each loop ' Delete nonessential tasks in the active project. For Each T In ActiveProject.Tasks If Not (T Is Nothing) Then If T.Flag1 = True Then T.Delete End If Next T End Sub