如何知道何时关闭文件

我有一个脚本，可将一部分数据从一个文件复制到另一个文件。目标文件在用户之间共享。复制后，我保存并关闭目标文件，并发出“已更新”消息。

我的代码：

...        
   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）处于打开状态，从而阻止其他用户对其进行更新。

在发布Workbooks（）。Close语句后，Excel实际上何时关闭文件？子例程完成后是吗？在发出“已更新”消息框之前，如何检测到它确实已关闭？