そんなに多くはないと思いつつ意外と機会が多いのでメモ なれれば、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