simple yet cannot work it

[bongobus]

hi the following works other than the red code doesn't wait until reached zero, I want it to wait until timer finished, can you help please


Sub Macro6()
'
Range("E17:L22").Select
Selection.ClearContents
Range("c15").Select

Application.Wait (Now + TimeValue("0:00:05"))
Sheets("Sheet4").Select
Range("n1").Select
ActiveCell.FormulaR1C1 = "12:00:30 AM"
starttimer
Sheets("Sheet5").Select
Range("L3:S8").Select
Selection.Copy
Sheets("Sheet4").Select
Range("E17").Select
ActiveSheet.Paste
Range("c15").Select<strike></strike>




End Sub



____________________________________________________________________________
Sub starttimer()
Application.OnTime Now + TimeValue("00:00:01"), "nexttick"
End Sub


_____________________________________________________________________________

Sub nexttick()
If Sheet4.Range("n1") = 0 Then Exit Sub
Sheet4.Range("n1").Value = Sheet4.Range("n1").Value - TimeValue("00:00:01")
starttimer

End Sub

 

[steve the fish]

You could replace your starttimer and nexttick macros with this loop:

Do Until Sheet4.Range("N1") = 0
    Application.Wait (Now + TimeValue("0:00:01"))
    Sheet4.Range("N1").Value = Sheet4.Range("N1").Value - TimeValue("00:00:01")
Loop

Some of your ranges need qualifying too. They should really have a sheet associated with them.