Compile error: Expected Array

Hi - I am getting a "Compile error: Expected Array" for the below code:

Sub ListSheetsinArray()

'List Sheets into an array
    Dim SheetArray As Integer
    Dim sCount As Integer
    Dim i As Integer
    
        sCount = Sheets.Count
    
        ReDim SheetArray(1 To sCount) As Integer
    
        For i = 1 To UBound(SheetArray)

            Cells(i, 1) = Sheets(i).Name
        Next i


End Sub

I feel like there is a simple thing I am missing, but can't figure it out. Any help is appreciated. Thanks

This will compile and run.

Sub ListSheetsinArray()

'List Sheets into an array
    Dim SheetArray() As Integer
    Dim sCount As Integer
    Dim i As Integer
    
        sCount = Sheets.Count
    
        ReDim SheetArray(1 To sCount) As Integer
    
        For i = 1 To UBound(SheetArray)

            Cells(i, 1) = Sheets(i).Name
        Next i


End Sub

Not sure you need an array though if you just want to put the sheet names in cells.

Thanks. I wanted to put the values into the array. This worked. Thanks

That code doesn't put any values in the array.

I know - I updated it

        For i = 1 To UBound(SheetArray)

            SheetArray(i) = Sheets(i).Name
        Next i