Excelマクロ・VBA ブック内の全てのシート名を取得する方法
ブック内のシート名を列挙したい時がありますが、
シートが多いと非常に大きな手間になります。
この記事では少ない手順でシート名を取得する方法を紹介します。
目次
サンプルファイル
※セキュリティの警告が出る場合は有効化してください。(解除方法↓)
使用方法
シート名を列挙したいブックを開いた状態で
excel-vba-all-sheet-name.xlsmを開いてマクロを有効化します。
シート名を列挙したいブックの中で任意のセルを選択した状態で
[Alt]+[F8]キーを同時押しします。
マクロの選択画面が表示されるので「'excel-vba-all-sheet-name.xlsm'!シート名一覧表示」を
選び「実行」ボタンを押下すると、そのブックのシートの一覧が列挙されます。


コードサンプル
利用するだけなら先述の手順だけでよいですが
マクロの中身は下記のとおりです。
Option Explicit
Sub シート名一覧表示()
Dim s As Worksheet
Dim i As Integer
i = 1
For Each s In ActiveWorkbook.Sheets
ActiveCell.Cells(i, 1) = s.Name
i = i + 1
Next s
End Sub
関連記事
マクロ・VBAの学習・活用方法の記事一覧
ファイル名(ブック名)とシート名を表示する方法
関数のみで実現する方法。
(ただしセルの所属シートのみ)
別シートへのリンクを貼る方法
有効な活用場面