ワークブックに非常に多くのワークシートがある場合は、それらのワークシートの名前を取得して、独自のワークシートに配置することをお勧めします。たとえば、目次やその他の方法で使用できるように、それらを1か所にまとめたい場合があります。次のマクロ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

注：

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

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

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

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

linkワークシート名の取得。