Excelブックのシート名の一覧作成

＜分類：値取得＞
＜使用例：Excelブックのシート名の一覧作成(出力シートに出力する)＞
＜プログラム例＞

Sub このExcelブックのシート名の一覧作成()
    Dim シート名 As String
    Dim i As Long

    シート名 = "出力"
    
    For i = 1 To Worksheets.Count
        Worksheets(シート名).Cells(i, 1).Value = Worksheets(i).Name
    Next i
    
End Sub