Excel VBAでシート名の一覧を取得して表示する方法

ブックのシート名を取得してセルに代入する方法のメモ。

シート数を取得してSheetCntに入れ、その数だけ繰り返し、イミディエイトウィンドウに名前を表示し、またSheet1のシートの1列目の15行目のセルから下にシート名を代入していくという処理になっている。


Dim i As Long
Dim SheetsCnt As Long

SheetsCnt = ThisWorkbook.Sheets.Count

For i = 1 To SheetsCnt
Debug.Print Sheets(i).Name
Worksheets("Sheet1").Cells(14 + i, 1).Value = "(" & i & ")　" & Sheets(i).Name
Next