The following code tries to reopen my files 30-45 seconds after I close them.
Any ideas what might make it do this? The code is meant to track my time in
the different bids I work on

Thanks,

Andy

Code in module:
Public Sub StartCounting(Optional bStart As Boolean = False)
Const dINCREMENT As Date = #12:01:00 AM#
If Not bStart Then
With Sheets("Bid Summary").Range("J3")
..Value = .Value + dINCREMENT
End With
End If
dNextCall = Now + dINCREMENT
Application.OnTime dNextCall, "StartCounting", Schedule:=True
End Sub

Public Sub StopCounting()
Application.OnTime dNextCall, "StartCounting", Schedule:=False
End Sub

Code in workbook:
Public Sub StartCounting(Optional bStart As Boolean = False)
Const dINCREMENT As Date = #12:01:00 AM#
If Not bStart Then
With Sheets("Bid Summary").Range("J3")
..Value = .Value + dINCREMENT
End With
End If
dNextCall = Now + dINCREMENT
Application.OnTime dNextCall, "StartCounting", Schedule:=True
End Sub

Public Sub StopCounting()
Application.OnTime dNextCall, "StartCounting", Schedule:=False
End Sub