Hi,
I agree with swisse, and would add that in general it is a good idea to
set display alerts back to true:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Workbooks("HRData.xls").Close False
Application.DisplayAlerts = True
End Sub

Regards, Lonnie M.