Как узнать, когда файл закрыт

Question

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

Мой код:

...        
   Workbooks(CurrFile).Activate
   Worksheets(CurrHosp).Range("A1").Select
   Selection.PasteSpecial xlPasteValues
   TimeStamp = Now()
   ActiveSheet.Range("A5").Value = TimeStamp
   ActiveSheet.Range("A1").Select

   Workbooks(ModelFile).Close SaveChanges:=False
   Workbooks(CurrFile).Close SaveChanges:=True

   MsgBox ("Destination Updated")
Else
   MsgBox ("No Source File Selected")
End If

   Application.StatusBar = False
   Application.DisplayAlerts = True
   Application.ScreenUpdating = True
End Sub   

Сегодня пользователь оставил свой рабочий стол с открытым окном сообщения "Обновлено". Это оставило файл назначения (Currfile) в открытом состоянии, не позволяя другим пользователям обновлять его.

Когда Excel фактически закрывает файл после выдачи Workbooks().Закрыть заявление? Это когда подпрограмма завершается? Как я могу обнаружить, что это действительно закрыто, прежде чем я выдаю "Обновленное" сообщение