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 最初のプログラム

ファイル名(ブック名)とシート名を表示する方法

関数のみで実現する方法。

(ただしセルの所属シートのみ)

別シートへのリンクを貼る方法

有効な活用場面

フォローする