Sub doTest() Dim intCounter As Integer Dim intTest As Integer intTest = 1 intCounter = 1 Do While intTest = 1 Debug.Print "This is loop number " & intCounter If intCounter >= 5 Then intTest = 0 End If intCounter = intCounter + 1 Loop End Sub