I'm getting strange results trying to use a timed event to update a file.
What happens is the first 5 iterations are carried out as expected but then starting with the 6th time through the code seems to run through 2 or 3 times without waiting the 10 seconds. As the code continues this increases until there is no delay between adding values to the cells and saving the book so it is continually incrementing the values in the cells and saving.
Am I doing something wrong with the timed event?

my code is placed below

TIA

code:

Option Explicit

Dim filespec, Acc As String, Cre As String, Modi As String
Public PrevModi As String, x As Integer

Sub On_Time()
Application.OnTime Now + TimeValue("00:00:10"), "ShowFileAccessInfo"
End Sub

Sub ShowFileAccessInfo()
PrevModi = Modi
filespec = "Drive:\Path\filename.xls"
GetFileAccessInfo (filespec)
Check_for_Change
End Sub

Sub GetFileAccessInfo(filespec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
Cre = f.DateCreated
Acc = f.DateLastAccessed
Modi = f.DateLastModified
End Sub

Sub Check_for_Change()
If PrevModi = Modi Then
Workbooks("filename.xls").Activate
ActiveWorkbook.Save
Else: Increment_Cell
End If
On_Time
End Sub

Sub Increment_Cell()
Workbooks("filename.xls").Activate
x = x + 1
Cells(x, 1) = x
On_Time
End Sub