...
   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