シート名一覧取得

Home

VBA を使い、当該ブックで、アクティブなシートの名前を取り出せます。

Sub シート名一覧取得()

Dim シート群名 As Worksheet
Dim i_sheet As Integer

i_sheet = 1 ‘初期値

With ActiveSheet

‘Sheetsコレクション1シートづつオブジェクトを取得。
For Each シート群名 In Sheets

‘取得できるシート名を、現在アクティブなシートの1列目へ出力する。
.Cells(i_sheet, 1).Value = シート群名.name

i_sheet = i_sheet + 1 ‘次のシート

 Next

End With

End Sub