Metode yang sama seperti pada penggunaan kode Do dan Loop While, struktur kebalikannya yakni Do dan Loop Until memerintahkan Excel melalui VBA agar dapat melakukan pengulangan perintah, namun selama kondisi dinyatakan False/Salah. Pengulangan tersebut akan dihentikan Excel apabila kondisi dinyatakan True/Benar.

Contoh kondisi yang dapat diujikan oleh kode Do dan Loop Until adalah pembuatan sejumlah worksheet baru (dalam contoh sebanyak 5 sheet) yang akan diberikan nama sesuai dengan tanggalnya masing-masing dimulai dari hari/tanggal dimana anda mengeksekusi macro tersebut. Adapun susunan kodenya sebagai berikut:
Sub SheetTahun()
Dim x As Integer
x = 0
Do
Sheets.Add(After:=Sheets(Sheets.Count)).Name = Format(VBA.Date + x, "D-MMM-YY")
x = x + 1
Loop Until x = 5
End Sub
Berikut ini langkah-langkah yang dapat anda ikuti:
  1. Buka file Excel yang ada di komputer anda atau buat workbook baru.
  2. Tekan ALT+F11 untuk menampilkan VBE.
  3. Buka menu Insert > Module
  4. Tulis kode macro di atas pada jendela Module1.
  5. Buka Excel kembali lalu tekan ALT+F8.
  6. Pada kotak dialog Macro pilih 'SheetTahun' lalu klik 'Run'.