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 auto_open()
Dim i As Integer, Sh As Worksheet
Set Sh = ActiveWorkbook.Worksheets("Голосовал")
userG = Environ("USERNAME")
Application.DisplayFullScreen = True
Sheets("Лист1").Visible = xlVeryHidden
Sheets("Диалог1").Visible = xlVeryHidden
Sheets("Сотрудники").Visible = xlVeryHiddenSheets("Лист2").Visible = xlVeryHidden
Sheets("Диалог2").Visible = xlVeryHidden
Sheets("Руководители").Visible = xlVeryHiddenSheets("Голосовал").Visible = xlVeryHiddenActiveWorkbook.Worksheets("Лист1").Range("B1:B7").ClearContents
ActiveWorkbook.Worksheets("Лист2").Range("B1:B10").ClearContents
    
    For i = 1 To Sh.Range("A1")
        If Sh.Cells(i, 3) = userG Then
            fioG = Sh.Cells(i, 4)
                If Sh.Cells(i, 5) = 0 Then
                    MsgBox "Здравствуйте, " & fioG & "!"
                    Sh.Cells(i, 5) = 1
                Else
                    MsgBox fioG & ", Вы уже проголосовали."
                    'ActiveWorkbook.Save
                    Application.DisplayFullScreen = False
                    ActiveWorkbook.Close savechanges = no
            End If
        End If
    Next i
Call dialogEnd Sub
'----------------------------------------------------
Sub dialog()
Dim i As Integer, j As Integer
start1:
    DialogSheets("Диалог1").Show
      If ActiveWorkbook.Worksheets("Лист1").Range("B11") = 7 Then
    For i = 1 To 7
        
            For j = 1 To ActiveWorkbook.Worksheets("Руководители").Range("A1")
                If ActiveWorkbook.Worksheets("Лист1").Cells(i, 2) = ActiveWorkbook.Worksheets("Руководители").Cells(j, 1) Then
                   ActiveWorkbook.Worksheets("Руководители").Cells(j, 6 + i) = ActiveWorkbook.Worksheets("Руководители").Cells(j, 6 + i) + 1
                End If
            Next j
      
   
    Next i
      Else
        MsgBox "Пожалуйста, выберите все категории!", vbCritical
        GoTo start1:
       End If
   MsgBox "Спасибо, Ваш голос учтён! Но голосование ещё не окончено."Call dialog2End Sub
'----------------------------------------------------
Sub dialog2()
Dim i As Integer, j As Integer
start1:
    DialogSheets("Диалог2").Show
      If ActiveWorkbook.Worksheets("Лист2").Range("B11") = 10 Then
    For i = 1 To 10
        
            For j = 1 To ActiveWorkbook.Worksheets("Сотрудники").Range("A1")
                If ActiveWorkbook.Worksheets("Лист2").Cells(i, 2) = ActiveWorkbook.Worksheets("Сотрудники").Cells(j, 1) Then
                   ActiveWorkbook.Worksheets("Сотрудники").Cells(j, 6 + i) = ActiveWorkbook.Worksheets("Сотрудники").Cells(j, 6 + i) + 1
                End If
            Next j
      
   
    Next i
      Else
        MsgBox "Пожалуйста, выберите все категории!", vbCritical
        GoTo start1:
       End If
   MsgBox "Спасибо, Ваш голос учтён!"
   MsgBox "До свидания!"
Call ВыходEnd Sub
'----------------------------------------------------
Sub Выход()
    ActiveWorkbook.Worksheets("Лист1").Range("B1:B7").ClearContents
    ActiveWorkbook.Worksheets("Лист2").Range("B1:B10").ClearContents    Application.DisplayFullScreen = False
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub