開発画面のイミディエイトウィンドウで For Each i In ThisWorkbook.Sheets: debug.print i.name : next i

と入力し、Enter