Collapsing Project Summary Tasks that are 100% Complete

Here's a little VBA macro I wrote to toggle the collapse/expansion of Summary tasks that are complete. This can be useful as you move through the project and want to easily hide the clutter of completed work.

Sub collapseCompletedSummaryTasks()
' Toggles visibility into subtasks of completed summary tasks
    Static collapsed As Boolean
    Dim t
   
    If collapsed Then
        collapsed = False
    Else
        collapsed = True
    End If
   
    For Each t In ActiveProject.Tasks
        If t.Summary And t.PercentComplete = 100 Then
            If collapsed Then
                t.OutlineHideSubTasks
            Else
                t.OutlineShowSubTasks
            End If
        End If
    Next t
End Sub