Sub cmdEfficient() Dim intCounter As Integer intCounter = 12 Do While intCounter < 35 intCounter = intCounter + 1 LoopEnd Sub