Hi

I'd like to read the values from a range into an array. Does anybody know,
how to make my example work?

Tom


Sub Test()
Dim aValues As Variant
Dim i As Integer

With ActiveSheet.Range("A1:A10")
aValues = .Value
End With

For i = 1 To UBound(aValues)
Debug.Print aValues(i)
Next i
End Sub