I have a code to sample variable value of cell D1 at every second
Sub t()


Dim k As Integer, s As Variant
    For k = 1 To 100  
    
         Range("B" & k) = Range("D1").Value
       
         s = Timer + 1
         
            Do While Timer < s
                DoEvents
            Loop
     Range("E2").Value = s
        
    Next
    
End Sub
Sampling of cell D1 needs to be done 24x7. While code runs perfectly upto 23:59:59 hrs but after that Timer stops. I have checked it's value reaches to 86397. I tried to reset Timer but VBA gives error that Read Only property can not be changed.
I tried s = Now + TimeValue("00:00:01") also instead of Timer function but that does not samples value of D1 exactly at 1 second interval. So, I want to use Timer.
For that I want to know how to reset Timer, if possible?
Or any other way so that sampling of values of D1 keeps continue after 23:59:59 hrs.

Thanks.