Excel Workbook ReOpening After Closing With Application.OnTime

[leopaulc]

Dear All ,
I am using the below macro to close the workbook after crossing the time limit.
In workbook, i pasted the below one


Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:03:00"), "close1_Me"
End Sub

and in the module,
Sub close_me()
ThisWorkbook.Close Savechanges:=True
End Sub

Sub close1_me()

Dim objWsh As Object, msg As String
Const Delay As Long = 3 'secs ?
Const wButtons As Long = 16 ' Boutons + icon

Set objWsh = CreateObject("WScript.Shell")
msg = "Please update the file. The file will close within 10 sec."

objWsh.Popup msg, Delay, "Reminder !!!!!!!!", wButtons
Application.OnTime Now + TimeValue("00:00:10"), "close_Me"

Set objWsh = Nothing

End Sub

Now the problem is, if i am clossing before 3 mins (before time limit), it opens the file and asks for the clossure.
The same repeats sometimes till i close all the workbook which is opened earlier.
If it is clossing normally, there is no error or loop is appeared.

Please help..

Regards,
Leo Paul

[Excel Fox]

Hi LeoPaulC,

Please wrap your code using Code Tags. I have added the same for you this time.
Try


Sub close_me()
On Error Resume Next
Application.OnTime Now(), "close1_Me", , False
On Error GoTo 0
ThisWorkbook.Close Savechanges:=True
End Sub

[leopaulc]

Dear Administrator,

Thank you for the guidance which i am receiving every time

regards,
Leo Paul