Excel の全シート名をテキストで取得する方法

※Excel2013の場合

1. Visual Basic Editorを起動する（ALT + F11）
2. イミディエイトウインドウ表示する（Ctrl + G）
3. For Each i In ThisWorkbook.Sheets: debug.print i.name : next i
   と入力し、Enter で実行する。

すると、下に全シート名が出力されます。