Sub forLoop2() Dim I As Integer For I = 0 To 10 Step 2 '6 iterations: 0, 2, 4, 6, 8, and 10 Debug.Print I Next I End Sub