Array syntax

[tiredofit]

Assume I have data from cells A1 to B2.

This would read all of it into an array:

Dim MyArray() As Variant
MyArray = Cells(1,1).CurrentRegion.Value

If I want the array to have 3 columns (Column C is currently blank because data only goes from A1 to B2), I could use this:

Dim MyArray() As Variant
MyArray = Cells(1,1).CurrentRegion.Resize(, 3).Value

Is there an equivalent of:

MyArray = Cells(1,1).CurrentRegion.Resize(5, ).Value

ie want to specify the number of rows?

Thanks

 

[Norie]

Try this.

MyArray = Cells(1,1).CurrentRegion.Resize(5).Value

 

[tiredofit]

Thanks, that worked.