I need a macro that will run numbers 0 threw to 20

[Mathman]

Hi


I need a macro that will run numbers 0 threw to 20 in cell E1 sheet B0_Charts with 1 second intervals between each count and the macro ends once the number 20 is completed.


How would the macro look like?


Thank you
MM​

 

[PCL]

Try

Sub Delay_Macro()
Const Delay_to_Wait      As Integer = 1
    Range("E1") = 0
    While (Range("E1") < 20)
        Application.Wait Now + TimeSerial(0, 0, Delay_to_Wait)
        Range("E1") = Range("E1") + 1
    Wend
    MsgBox "Job  Done"
'
End Sub