Excel マクロ(VBA) でシート一覧を作成

備忘録としてVBAマクロを掲載していくシリーズ。

いまあるシート名一覧を出力する方法。
ブックの末尾に新たにシートを追加して、そこに現在あるシート名一覧を出力する。

Sub シート一覧を作成()
    Dim cnt as Long
    cnt = Sheets.Count

    Dim work As Worksheet
    Set work = Worksheets.Add(, Sheets(cnt))

    Dim i As Long
    For i = 1 To cnt
            work.Cells(i, 1) = Sheets(i).Name
    Next i
End Sub