I know this was posted a long time ago, but as no-one has answered it I thought I'd jump in.
In the Worksheet_Calculate routine I start a timer when the race goes in play. I also set a boolean public variable, RaceHasStarted to True. After all the betting code I then check if RaceHasStarted is True, Range F2 is = "Suspended" and the timer is greater than than 5 seconds in order to get clear of the In Play Suspended event:
- Code: Select all
If (RaceHasStarted = True And .Range("F2") = "Suspended" And Timer - StartTime > 5) Then
Hope this helps.