Excelシート名一覧の取得

そんなに多くはないと思いつつ意外と機会が多いのでメモ
なれれば、10秒くらいでシート名一覧が取れるようになる。

ALT+F11を押下(VBAエディタが起動)
CTRL+Gを押下(イミディエイトウインドウが起動)
「For Each i In ThisWorkbook.Sheets: debug.print i.name : next i」をタイプしてEnterを押下
シート名をコピー
VBAエディタを閉じる

http://d.hatena.ne.jp/ofo/20090330/1238416387