Sub ReadyToStart()

'This macro will filter to show only tasks that have
'all of their predecessors at least 80% complete
'and which are not already marked complete themselves
'copyright Jack Dahlgren, March 2002

Dim t, pt As Task
For Each t In ActiveProject.Tasks
If Not t Is Nothing Then
    If Not t.Summary Then
    t.Flag1 = False
        If t.PercentComplete = 100 Then t.Flag1 = True
        For Each pt In t.PredecessorTasks
            If pt.PercentComplete < 80 Then
                t.Flag1 = True
            End If
        Next pt
    End If
End If
Next t
FilterEdit Name:="ImReady", TaskFilter:=True, Create:=True, OverwriteExisting:=True, FieldName:="Flag1", test:="equals", Value:="No", ShowInMenu:=False, ShowSummaryTasks:=False
FilterApply Name:="ImReady"
End Sub