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