Sub forTest() Dim intCounter As Integer For intCounter = 1 To 10 If (intCounter Mod 2) = 0 Then Debug.Print intCounter & " is an even number" Else Debug.Print intCounter & " is an odd number" End If Next End Sub