I am trying to make a Timer executing a sub every second.
I need a delay of 1 second then executing sub.
I need a delay of 1 second then executing sub.
VBA Code:
Public TimerValue As Variant
Public TimerTick As Variant
Private Sub Window_Open()
TimerValue = 1
TimerTick = Now
Do While TimerValue <> 0
TimerTick = TimerTick + TimeSerial("00:00:01")
'Delay of 1 sec
Execute()
Loop
End Sub
Private Sub Stop_Click()
TimerValue = 0
End Sub