redim类型不匹配

下面的代码将一系列单元格联接成一个字符串,这归功于我以前的代码将被Jnevill调用。 post .

我在redim区一直收到一个类型不匹配错误。我还尝试在减去1之前将它包装在一个ubound上,但这仍然给了我一个类型不匹配错误。

Function convertRangetoList(myRange As Range, delimiter As String) As String
Dim rngCell As Range
Dim arrNames() As Variant
Dim i As Long

'redim the array
ReDim arrNames(myRange - 1)


'Load the array
i = 0
For Each rngCell In myRange
    arrNames(i) = rngCell.Value
    i = i + 1
Next

    ' Join to comma seperate array
    convertRangetoList = Join(arrNames, delimiter)

End Function