Hi Tom

The created array will be a 2-dimensional one,
so in your situation with only one column use

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

--
Best Regards
Leo Heuser

Followup to newsgroup only please.

"Tom" skrev i en meddelelse
...
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