Delay counter

[jamesd]

How do I make "For i = 1 To imax" count up at a set interval ?

 

[Jonmo1]

Do you mean

For i = 1 to imax Step 2

 

[jamesd]

Sorry I did not explain my self.
What I need is for the number in a cell count up from 1 to 500 slowly ie every couple of seconds.
I may not be useing the correct code but it does work only at breakneck speed.

 

[Jonmo1]

You can use Application.Wait

For i = 1 To imax
    Application.Wait (Time + TimeSerial(0, 0, 1))
    Range("A1").Value = i
Next i

Note, the value provided to Wait, is NOT how long you want it to wait. It is the time you want it to resume.
So basically,
Application.Wait (What time should I resume)

 

[jamesd]

Thanks , works great.
Simple bit of code but it had me beat.