Sub ForNextStep() Dim intCounter As Integer For intCounter = 1 To 5 Step 2 Debug.Print intCounter Next intCounter End Sub