Solved: Creating a dynamic concatenation from a list

[Bob Phillips]

As before, np formula use the timer

[VBA]Sub SetTimer()
Dim clock As Date
Dim i As Long
If datStartTime = 0 Then datStartTime = Now
clock = Now - datStartTime
If Second(clock) = 0 Then
If Minute(clock) = 0 Then
Range("D18").Value = Range("B2")
Else
Range("D18").Value = Range("D18").Value & "," & Cells(Minute(clock) + 2, "B").Value
End If
End If
SchedRecalc = Now + TimeValue("00:00:01")
Application.OnTime SchedRecalc, "RecalcTimer"
End Sub
[/VBA]