Sama seperti pada pembahasan yang lalu telah dijelaskan tentang Tips Macro Excel Membuka Seluruh Sheet Yang Tersembunyi Secara Bersamaan, metode kode For Each dan Next juga dapat digunakan untuk menutup sekaligus menyimpan seluruh workbook yang terbuka kecuali satu workbook yang digunakan untuk mengeksekusi perintah tersebut.

Berikut ini contoh penyusunan kode yang digunakan:
Sub TutupSimpan()
Dim tutup As Workbook
For Each tutup In Workbooks
If tutup.Name <> ThisWorkbook.Name Then
tutup.Save
tutup.Close
End If
Next tutup
End Sub
Adapun langkah-langkah yang dapat anda ikuti adalah sebagai berikut:
  1. Buat beberapa workbook baru atau buka workbook yang ada di komputer anda.
  2. Aktifkan salah satu workbook untuk mengeksekusi perintah macro.
  3. Tekan ALT+F11 untuk menampilkan VBE.
  4. Buka menu Insert > Module
  5. Tulis kode macro di atas pada jendela Module1.
  6. Buka Excel kembali lalu tekan ALT+F8.
  7. Pada kotak dialog Macro pilih 'BukaSheet' lalu klik 'Run'.