多くのワークシートを含む複雑なワークブックでは、さまざまなワークシートのリストが必要になることも珍しくありません。リストを取得したら、それを印刷したり、ワークブックの目次を作成するなど、他の方法で使用したりできます。次のマクロGetSheetsは、現在のブック内のワークシートの名前をすばやく取得します。それらを現在のワークシートに配置し、セルA1から始めて、下に向かって作業します。

Sub GetSheets()

Dim j As Integer     Dim NumSheets As Integer

NumSheets = Sheets.Count     For j = 1 To NumSheets         Cells(j, 1) = Sheets(j).Name     Next j End Sub

このマクロは、現在のブックで必要なセル内のすべてを上書きするため、ワークシートの列Aに何も必要ないことを確認する必要があります。何も上書きしたくない場合は、必ず新しいワークシートを作成してから、そのワークシートからマクロを実行してください。

ワークシートのリストが作成されたら、必要に応じてフォーマットしてから印刷できます。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（2216）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkワークシートリストの印刷。