Сводить сводные задачи на основе ввода текста

Question

Я пытаюсь настроить макрос быстрого сворачивания. У меня есть большой проектный файл, содержащий 2000 строк, с повторяющимися сводными задачами, которые называются Даты присуждения контракта в качестве одного из основных итоговых заголовков. Однако его не нужно часто просматривать. См. Пример файла проекта ниже.

Я попытался свернуть сводные задачи, запросив имя суммарной задачисвернуть и кодировать ниже, но он возвращает ошибку несоответствия

   'Roll up Summary Tasks based on Input'

Sub RollUpTasks()

    Dim txt As String
    txt = InputBox("Flag tasks that include the following text in their names:")

    Dim tsk As Task
    Set Proj = ActiveProject

    For Each tsk In Proj.Tasks
    'If task is summary and matchs input txt, set its rollup property to True'
    If tsk.Summary And tsk.Name = InStr(1, tsk.Name, txt, 1) Then
    tsk.Rollup = True
    ' If task isn't a summary task set its Rollup property to False'
    Else
    tsk.Rollup = False
    End If
    Next tsk

End Sub

Кажется, что проблема с этим, если заявление я настроил