Array problems

[richarddawson]

I have a single sheet workbook; with A1 = "a"; A2 = "b"; down to A6 = "f".

The entire programme is below
The bounds print correctly ; 1 6
But I get an error '9' "Subscript out of range" on the next line ("Debug.Print Arr(3)")

I have used arrays many times - but this defeats me - can anyone help, please?

Dim Arr() As Variant
Sub getArray()
Arr = Range("A1:A6")
Debug.Print LBound(Arr) & " " & UBound(Arr)
Debug.Print Arr(3)
End Sub

 

[Fluff]

As Arr is a 2d array, you need to use

Debug.Print Arr(3,1)

 

[richarddawson]

Thanks for your rapid and succinct answer - which certainly eliminates the "Subscript out of range" problem, but it
does not print anything.

Also I thought I had only specified a one dimensional array!

Cheers Rochard

 

[Fluff]

Whenever you load a range into an array, it will always be a 2d array.
If it does not print anything check that A3 on the active sheet is not blank.