シート一覧取得
［Alt］＋［F11］キーを押して「Microsoft Visual Basic for Application」の画面を表示させます。（もしくは、［開発］タブから［Visual Basic］をクリックしても同じ画面になります。）
［Ctrl］＋［G］キーを押します。画面下部に［イミディエイト］という領域が表示されます。
以下のコードをコピー＆ペーストして［Enter］キーを押します。
For Each n In ThisWorkbook.Sheets: debug.print n.name : next n
