oneliner 2D array creation in Excel VBA?

You cannot do this in VBA...

you have to loop through the array entering the value into each value:
Such as below...

Dim MyArray(1 to 15, 1 to 15) as string
for x = lBound(MyArray,1) to ubound(MyArray,1)
    for y = lBound(MyArray,2) to ubound(MyArray,2)   
        MyArray(x,y) = "value"
    next y
next x

Select allOpen in new window

Or if your data is in a range, say A1:C27 on your worksheet:

Dim vData As Variant
    vData = Range("A1:C27").Value

Select allOpen in new window

Or you can use the Array function:

vData = Array(Array(1, 2, 3), Array(4, 5, 6), Array(5, 6, 7))

Select allOpen in new window

but this is not as concise as Rory's, and the elements have to be accessed by the less obvious

vData(i)(j)

Select allOpen in new window

rather than

vData(i, j)

Select allOpen in new window

as in the other examples

I asked here because the following 2D array declaration returns a "Run-time error '13': Type Mismatch error"

aNomeFogli = [{"Istruttoria","Note" & Chr(10) & "(Opzionale)"; "Stipula","T"; "Post Stipula","L"}]

I now discovered that the cause is that Chr(10).
How could I avoid the error keeping it and keeping the declaration of minimalist lenght?