code reopens file

[Guest]

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

 

[Jim Rech]

Unless you are closing Excel you have to call the StopCounting routine
before you close the workbook, else Excel looks for the macro you scheduled.

--
Jim
| 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