VBA – ワークブック内のすべてのシートを一覧表示するマクロ

以下のマクロは、ワークブック内のすべてのシートをループし、各シートのタブ名を選択したシートに順次書き込んでいます。これは、多くのシートを持つワークブックの各シートの一覧を素早く表示するのに便利です。

ワークブック内の全ワークシートをリストアップする

このマクロを使う前に、コード中のSheet1という単語（2回出てきます）を、結果を出力したいシートのタブ名で置き換えてください。出力するシートに書き込む前に、A列のデータをクリアしてしまうので、出力するシートに重要な情報がないことを確認しておいてください。

Sub ListSheets()

Dim ws As Worksheet
Dim x As Integer

x = 1

Sheets("Sheet1").Range("A:A").Clear

For Each ws In Worksheets
     Sheets("Sheet1").Cells(x, 1) = ws.Name
     x = x + 1
Next ws

End Sub