Tip berikut ini merupakan contoh penerapan metode kode Do Until dan Loop lainnya dimana perintah ini akan membuka/mengaktifkan worksheet berikutnya berdasarkan daftar urutan bilangan terbesar dari worksheet yang ditampilkan pada workbook.

Adapun jika terdapat suatu worksheet yang tersembunyi, maka perintah ini akan melewatkan worksheet tersembunyi tersebut dan mengaktifkan worksheet yang ditampilkan saja.
Sub BukaSheet()
Dim buka As Integer
buka = ActiveSheet.Index + 1
If buka > Worksheets.Count Then buka = 1
Do Until Worksheets(buka).Visible = True
buka = buka + 1
If buka > Worksheets.Count Then buka = 1
Loop
Worksheets(buka).Select
End Sub
Langkah-langkah yang dapat anda ikuti adalah sebagai berikut:
  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 'BukaSheet' lalu klik 'Run'.