Sub ЗакрытьФайл()
Application.OnTime Now + TimeValue("00:05:00"), "Закрыть"
End Sub
Sub Закрыть()
ThisWorkbook.Close SaveChanges:=False
End Sub

=СУММЕСЛИМН('Лист2'!G2:G1200;'Лист2'!A2:A1200;"*ТИ-2*";'Лист2'!B2:B1200;"[@*[
Контрагент]*]";'Лист2'!D2:D1200;"[@*[Договор]*]";'Лист2'!F2:F1200;[@[Дата Договора]])

Option Explicit

Sub jjjGrandSmeta()
Dim wb As Workbook
Dim strPath$
 
With Application.FileDialog(msoFileDialogFolderPicker) ' Open the Folder dialogue
    .AllowMultiSelect = False ' выбор только одной папки
    .Title = "Выбор папки для не сохранённых файлов" ' заголовок окна
    .InitialFileName = "Выберите папку" ' текст выбранной папки по-умолчанию
    .Show ' показать окно выбора
    If .SelectedItems.Count = 0 Then MsgBox "Папка с не выбрана." & Chr(10) & _
        "Макрос прерывает свою работу.": Exit Sub ' если не выбран ни одна папка, то выход
    strPath = Replace(.SelectedItems(1) & "\", "\\", "\") ' полный путь папки
end With
For Each wb In Workbooks
    If Len(wb.Path) = 0 Then wb.SaveAs strPath & wb.Name
Next wb
End Sub