ExcelSheet名取得

Excelで作成している社内マニュアルでシート名を目次とするためシート名を一括で取得する。

Sub sheetname()
Dim i As Long
For i = 1 To Worksheets.Count
    Cells(i, 1) = Worksheets(i).Name
Next
End Sub