VBA Timer with rolling list

[DutchDisaster]

What I was asked to do is to create a countdown timer that starts with the first value in a predetermined list of roundtrip times, and when it reaches zero, it has to move on to the next value and so on, till the list has been completed and then stop. This list with time values will eventually be created daily in another file (on another machine), but will be imported in the timer file each morning.

One thing to remember; this list of times is variable, i.e. it runs from 0800h to 1630h, but due to roundtrips being longer or shorter depending on the required schedule, the amount of roundtrips can change each day.

I have built the timer, which works as required, but I am at a loss how to feed the timer the next value in the list. Right now, the timer uses cell E4 for its starting value, so I'd need the new value to appear there at the end of each cycle.

This is my timer at the moment:

Public Countdown As Double

Sub StartCountdown()
    Countdown = Now + TimeSerial(0, 0, 1)
    Application.OnTime earliestTime:=Countdown, procedure:="RunCountdown", _
         schedule:=True
End Sub

Sub RunCountdown()
    Sheet2.Range("B2").Value = Sheet2.Range("B2").Value - TimeValue("00:00:01")
    If Sheet2.Range("B2").Value >= TimeValue("12:00:00") Then
        Call StopCountdown
        Range("B2") = Range("F20")
        Exit Sub
    End If
    If Sheet2.Range("B2").Value <= 0 Then
        Range("B2") = Range("E4")
    End If
    StartCountdown
End Sub

Sub StopCountdown()
    On Error Resume Next
    Application.OnTime earliestTime:=Countdown, _
        procedure:="RunCountdown", schedule:=False
End Sub

This is my test setup:

	B	C	D	E	F

<tbody>
[TD="align: center"]1[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

[TD="align: center"]2[/TD]
[TD="bgcolor: [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFF00]#FFFF00[/URL] , align: center"]00:00:00[/TD]
[TD="bgcolor: [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFF00]#FFFF00[/URL] , align: center"][/TD]
[TD="align: right"]0,0000[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

[TD="align: center"]3[/TD]
[TD="bgcolor: [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFF00]#FFFF00[/URL] , align: center"][/TD]
[TD="bgcolor: [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FFFF00]#FFFF00[/URL] , align: center"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]

[TD="align: center"]4[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]12:00:01[/TD]
[TD="align: right"]00:15:00[/TD]

[TD="align: center"]5[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]00:14:00[/TD]

[TD="align: center"]6[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]00:13:00[/TD]

[TD="align: center"]7[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]00:12:00[/TD]

[TD="align: center"]8[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]00:11:00[/TD]

[TD="align: center"]9[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]00:10:00[/TD]

[TD="align: center"]10[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]00:09:00[/TD]

[TD="align: center"]11[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]00:08:00[/TD]

[TD="align: center"]12[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]00:07:00[/TD]

[TD="align: center"]13[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]00:06:00[/TD]

[TD="align: center"]14[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]00:05:00[/TD]

[TD="align: center"]15[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]00:04:00[/TD]

[TD="align: center"]16[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]00:01:00[/TD]

[TD="align: center"]17[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]00:00:30[/TD]

[TD="align: center"]18[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]00:00:10[/TD]

[TD="align: center"]19[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]00:00:01[/TD]

[TD="align: center"]20[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]00:00:00[/TD]

[TD="align: center"]21[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"]12:00:01[/TD]

</tbody>

Sheet2​

The bottom value in the list is over 12h, as it is the trigger to stop. The generated lists will all have the 12:00:01 value as the last value to stop the countdown sequence. D2 is related to that (used to generate a value in B2 of 00:00:00 after the countdown ends). At the moment, E4 has a simple dropdown list, which is (F4:F21).

So what I need now are suggestions on how to create the rolling list I'm missing.

I'm thinking the required code should be inserted somewhere in the RunCountdown sub?

 

[DutchDisaster]

Bumped, in hope of a helpful reply...