Named Range to Array

Hi,

I am trying to populate one dimensional array with a named range. The named range "Names" refers to just one column. When I run the code below, I get a 2 dimensional array, why?

Sub RangeToArray()
    Dim cnt As Byte
    Dim rngNames As Range
    Dim arrNames As Variant

    cnt = ActiveSheet.Range("Names").Count
    Set rngNames = ActiveSheet.Range("Names")
        
    ReDim arrNames(cnt - 1)
    arrNames = rngNames
End Sub

What do I have to change to make it work?

Regards,
Elio fernandes