Menampilkan Semua Nama Sheet pada Excel VBA

Berikut ini adalah prosedur atau macro untuk menampilkan nama-nama sheet atau worksheet yang sedang dibuka melalui aplikasi Ms-Excel melalui kotak pesan (message box).

Sub TampilNama()
Dim w As Worksheet
For Each w In Worksheets
   MsgBox w.Name
Next
End Sub