シート名を取得するVBA

たくさんあるExcelシートを一覧表示するVBA

Sub シート名取得()
Dim rowNum As Long ‘取得データを格納する行番号
Dim workSt As Object ‘シート名を記録するための変数

‘ セルの2行目からシート名を記録する

rowNum = 2

‘ ワークシートを順に workSt 変数に一時記録
For Each workSt In Worksheets

‘ 取得したワークシートをセル( rowNum , 2 ) に格納
Cells(rowNum, 2).Value = workSt.Name

‘ A列に番号を採番
Cells(rowNum, 1).Value = rowNum – 1

‘ C列に見出しにリンクする数式を入力
Cells(rowNum, 3).Value = rowNum – 1

rowNum = rowNum + 1
Next

End Sub