At Specific time before the off - not always working

[Sussexguy44]

Under the Markets tab I set each race to click on the market at 11 mins before the off. I also leave a 20 minute gap between races so the race goes in play. On most days something occurs that prevents the move to the next race.It appears to be based on the link to the spreadsheet, although I have also noted that the markets do not always show in the Gruss Grid. MY VBA is below, in addition I do have 10/12 worksheets working from the same spreadsheet at once. Can I set up VBA in a way to ensure that the next race is always moved to. Is there another reason this may occur?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Columns.Count <> 16 Then Exit Sub
Static MyMarket As String
Dim lastRow As Long
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

With Target.Parent

lastRow = .Range("Z" & Rows.Count).End(xlUp).Row

If .Range("A1").Value <> MyMarket Then
MyMarket = .Range("A1").Value
.Range("AA5:AA" & lastRow).ClearContents
.Range("AM5:AM" & lastRow).ClearContents
End If


If WorksheetFunction.IsText(.Range("D2").Value) = False And (IsEmpty(Range("AA5").Value) Or WorksheetFunction.IsText(.Range("AA5").Value)) Then
If .Range("D2").Value <= TimeValue("00:10:00") Then
.Range("AA5:AA" & lastRow).Value = .Range("Z5:Z" & lastRow).Value
.Range("AM5:AM" & lastRow).Value = .Range("F5:F" & lastRow).Value
End If
End If


End With


Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True


End Sub

[Sussexguy44]

Last post was complex. I have a problem in my specific time before the off action working. I have noted many posts relating to putting a 1 in cell Q2. Quite simply im looking for a way to fully ensure that the next race in the quick pick list is definately moved to at the correct time.

Any help is welcome.

D

[Captain Sensible]

The off time of the next race in the QPL is sent to D1 I think, so you can run any routines referencing that data.