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