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

Sub sheetName()
Dim i As Long

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