Hi LeoPaulC,

Please wrap your code using Code Tags. I have added the same for you this time.
Try
Code:
Sub close_me()
        On Error Resume Next
        Application.OnTime Now(), "close1_Me", , False
        On Error GoTo 0
ThisWorkbook.Close Savechanges:=True
End Sub