Application.OnTime continuously opening my workbook

[Afro_Cookie]

Sub SaveThis()

Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True

Application.OnTime Now + TimeValue("00:00:10"), "SaveThis"

End Sub

This is in WB1. If I have a second Workbook open, it will automatically open WB1 each time the Application.Ontime timer runs down. I only want the macro to run if this particular workbook is open.

Any ideas on how to get around this would be really appreciated.

 

[AlphaFrog]

Put this in a standard code module...

Public NextTime As Date

Sub SaveThis()

Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True

NextTime = Now + TimeValue("00:00:10")
Application.OnTime NextTime, "SaveThis"

End Sub

Sub SaveThisEnd()
    On Error Resume Next
    Application.OnTime NextTime, "SaveThis", Schedule:=False
End Sub

Put this in the ThisWorkbook code module...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    SaveThisEnd
End Sub

 

[Afro_Cookie]

I put the code in as written, but now it won't save at all.

Put this in a standard code module...

Public NextTime As Date

Sub SaveThis()

Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True

NextTime = Now + TimeValue("00:00:10")
Application.OnTime NextTime, "SaveThis"

End Sub

Sub SaveThisEnd()
    On Error Resume Next
    Application.OnTime NextTime, "SaveThis", Schedule:=False
End Sub

Put this in the ThisWorkbook code module...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    SaveThisEnd
End Sub

 

[Afro_Cookie]

I added this so it would run on open. Code works perfectly. Thanks a lot for your help @AlphaFrog

Private Sub Workbook_Open()
    SaveThis
End Sub

Put this in a standard code module...

Public NextTime As Date

Sub SaveThis()

Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True

NextTime = Now + TimeValue("00:00:10")
Application.OnTime NextTime, "SaveThis"

End Sub

Sub SaveThisEnd()
    On Error Resume Next
    Application.OnTime NextTime, "SaveThis", Schedule:=False
End Sub

Put this in the ThisWorkbook code module...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    SaveThisEnd
End Sub