Increase Integer by 5 each loop

[randolphoralph]

I am trying to figure out how to rewrite the macro below so that when the loop runs the Integer i increases by 5

So here is what I am looking for the loop to do...

1st loop i = 0
2nd loop i = 5
3rd loop i = 10
4th loop i = 15
5th loop i = 20


Here is the current macro

Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 0 To 20:             
        Range("C1").Value = i   
        Application.Calculate
        Sleep 500
    Next
End Sub

 

[Jonmo1]

Try

For i = 0 To 20 Step 5

 

[randolphoralph]

That worked perfect jonmo1! Thanks for your help.

 

[Jonmo1]

Glad to help, thanks for the feedback..



As an aside, you can also make it go backwards.

For i = 20 To 0 Step -5

That can come in handy..