VBA 全シート名を取得する

Private Sub CommandButton1_Click()

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

Private Sub CommandButton1_Click()

    Dim i As Long
    
    i = 1
    
    For Each sheetName In Worksheets
    
        Cells(i, 1) = sheetName.Name
        i = i + 1

    Next    
    
End Sub