Sub cmdDoUntil() Dim intValue As Integer intValue = 10 Do Until intValue = 35 intValue = intValue + 1 Loop End Sub