Well, FWIW ... I get 8 as an answer, but P45cal could have the issue
I keep getting "10" when the last value in my array is "20". Any ideas? Thanks
I don't see any 20 in the data
Capture.JPG
Option Explicit
Sub DynamicArray()
Dim numbers() As Integer, size As Integer, i As Integer
size = WorksheetFunction.CountA(Worksheets(1).Columns(1))
MsgBox size
ReDim numbers(size)
MsgBox LBound(numbers) & " -- " & UBound(numbers)
For i = 1 To size
numbers(i) = Cells(i, 1).Value
Next i
MsgBox numbers(size)
End Sub