pause 1 'looking to se many other ways this can be done so the app don't freeze up while it counts down,looking for something that run's smoothly.Code:Public Sub Pause(Seconds As Long) Dim start As Single start = Timer Do If Abs(Timer - start) > Seconds Then Exit Sub DoEvents Loop End Sub