Exit Do.. Loop with Timer 10 Sec or After Repeating Loop 10 times exit

[OldGreg]

Do




Loop Until Timer = 10
End Sub

 

[djreiswig]

Sub test()
    Dim StartTime As Single, Counter As Integer
    Counter = 0
    StartTime = Timer
    Do
        Counter = Counter + 1
        
        'do stuff here
        
    Loop Until Timer > StartTime + 10 Or Counter = 10
End Sub

 

[OldGreg]

Sweeeeet. Thank you very much.

 

[djreiswig]

No problem.