Sub loopDemo4() Dim I As Integer For I = 10 To 0 Step -5 '3 iterations: 10, 5, and 0 Debug.Print I Next I End Sub