'This Macro will clear workgroup notification 
'flags from tasks.
'It is useful if you decide to stop using
'workgroup features
'Copyright Jack Dahlgren July, 2002


Sub ClearTeamStatus()
Dim asgn As Assignment
Dim asgns As Assignments
Dim r As Resource
Dim rs As Resources

Set rs = ActiveProject.Resources
For Each r In rs
Set asgns = r.Assignments
    For Each asgn In asgns
        asgn.TeamStatusPending = False
        asgn.ResponsePending = False
    Next asgn
Next r
End Sub