Закрыть книгу после импорта внешних данных

[agregator]

Здравствуйте уважаемые программисты. Подскажите код, который закроет книгу после обновления данных, а не раньше. Записаный макрос закрывает книгу до того как закончится обновление данных.

Sub Обновление_данных()
    Workbooks.Open Filename:= _
        "\\fs.zsmk.ru\org\ATP\Atu\Tranzit\Эксплутационный отчёт\Отчет\Сверка.xls"
    ActiveWorkbook.RefreshAll
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub