I have the following code:
My worksheet looks like this and when I run my code, I keep getting "10" when the last value in my array is "20". Any ideas? ThanksArrayError.jpgSub DynamicArray() Dim numbers() As Integer, size As Integer, i As Integer size = WorksheetFunction.CountA(Worksheets(1).Columns(1)) ReDim numbers(size) For i = 1 To size numbers(i) = Cells(i, 1).Value Next i MsgBox numbers(size) End Sub