Sub update_all()

Dim MyPath As New Collection
Dim path As Variant

With MyPath
    .Add ("Z:\АНАЛИТИК\III кв. 2019\ОТЧЕТЫ\Имя файла 01.xlsm")
    .Add ("Z:\АНАЛИТИК\III кв. 2019\РЕЙТИНГИ\Имя файла 02.xlsm")
    .Add ("Z:\ОТЧЁТНОСТЬ\III кв. 2019\СВОДЫ\Имя файла 03.xlsm")
End With

For Each path In MyPath
      
      Workbooks.Open Filename:=path, UpdateLinks:=1, Notify:=False

      'Application.Run "path!open_last_and_update" # проблема с кавычками
      'open_last_and_update # пока ещё нет такого макроса
      'Workbooks(path).Close SaveChanges:=True # ошибка: out of range

      ActiveWorkbook.Close SaveChanges:=True
Next

End Sub

'=================================Тело========================================
                i = 3 'строка-начала заполнения Описи /// КАК ПРОДЛИТЬ ЗАПОЛНЕНИЕ ПОСЛЕ ПЕРЕХОДА В ДР. ФАЙЛ???
                    For Each sh In WB.Worksheets
                        If sh.Name <> "ИТОГО" Then
                            For j = 0 To sh.Cells(4, 3) 'СЧЁТЗ //Здесь можно не указанием на ячейку, а поиском пустой строки
                               If sh.Cells(5 + j, 2) <> 0 Then
                                ThisWorkbook.Sheets(1).Cells(i, 4) = sh.Cells(5 + j, 2) '4- столбец-начала
                                ThisWorkbook.Sheets(1).Cells(i, 3) = "Оригинал"
                                ThisWorkbook.Sheets(1).Cells(i, 1).Formula = FileItem.Name
                                    If sh.Cells(5 + j, 17) = 1 Then 'And sh.Cells(5 + j, 2) <> "" Then ' Если в ячейке "Заявление о несогласии" стоит 1
                                        ThisWorkbook.Sheets(1).Cells(i, 2) = "Заявление о несогласии с размером возмещения"
                                        Else: ThisWorkbook.Sheets(1).Cells(i, 2) = "Справка о выплаченных суммах и вкладах"
                                    End If
                                End If
                            i = i + 1
                             Next j
                        End If
                    Next
    '=================================Тело==========================

'Вот мой шаблон цикла по выделенным страницам.

Sub DoinSelectedSheets()
    Dim sh As Worksheet
    Dim AW As Window
    Set AW = ActiveWindow
    For Each sh In AW.SelectedSheets   
                sh.Select
                sh.Unprotect
 'Начало тела цикла
 
 'Конец тела цикла   
    ActiveWindow.Zoom = 75
               sh.Protect
        
    Next
End Sub

 Sub SheetsRunner()
    Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Worksheets   
    If sh.Name <> "ИТОГ" Then 
     sh.Activate
     sh.Select
     Rows("16:20").Hidden = False
     Rows("16:17").Hidden = True
     Rows("19:20").Hidden = True
    End If
    Next
End Sub