Excelでシート名を記録するVBA

2022年8月23日ノウハウ, レッスン報告, 知った・見つけた

Sub sheetName()
Dim i As Long

    For i = 1 To Worksheets.Count
        Cells(2, i + 1) = Worksheets(i).Name
    Next i
End Sub