Do Until Loop

 

Although not used very often on this site, you might find yourself in a situation where you want to use the Do Until Loop in Excel VBA. Code placed between Do Until and Loop will be repeated until the part after Do Until is true.

Place a command button on your worksheet and add the following code lines:

Dim i As Integer

i = 1

Do Until i > 6

Cells(i, 1).Value = 20

i = i + 1

Loop

Result when you click the command button on the sheet:

Excel VBA Do Until Loop

Explanation: until i is higher than 6, Excel VBA places the value 20 into the cell at the intersection of row i and column 1 and increments i by 1. As a result, the value 20 will be placed into column A six times (not seven because Excel VBA stops when i equals 7).