Assignment.Flag18 Property (Project)

True if the flag associated with an Assignment is set. Read/write Variant.


expression. Flag18

expression A variable that represents an Assignment 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