Subscript 9 error, VBA Array, shorthand

[Certified]

Can anyone tell me why I am getting a subscript 9 error.

The error is at the line highlighted in red.

Sub Create_arrays()

Debug.Print "Creating the Arrays"

   Dim gemsDimension As Integer
   Dim lr As Integer
   Dim lc As Integer
   Dim number As Integer
   Dim col As Integer
   Dim r0w As Integer
   Dim sh33t As String
   Dim tempArray() As Variant
   Dim arrayData() As Variant
   
   
   arrayData = Array(Array("voting array", 1, 1, "VotingCopy", 0, "votingArray"), Array("capital array", 1, 1, "Capital", 0), _
   Array("gems array", 1, 1, "gems", 2), Array("Equity Array", 1, 1, "equitY", 0), Array("PickupArray", 1, 1, "pickUP", 0), _
   Array("bpc array", 1, 1, "bpc", 0), Array("Commets Array", 2, 1, "Comments", 1), Array("Create prelim array", 1, 1, "preliM", 0), _
   Array("Memo Array", 0, 0, 0), Array("sch 6", 0, 0, 0))
     
    For number = LBound(arrayData) To UBound(arrayData)
    
        [COLOR=#ff0000][B]col = arrayData(number, 2)[/B][/COLOR]
        r0w = arrayData(number, 3)
        sh33t = arrayData(number, 4)
        tempArray = arrayData(number, 6)
    
        colnm = col: rowNum = r0w
        Sheets(sh33t).Activate
        lr = wColLastRow(colnm)
        lc = wRowLastColNum(rowNum) + 1
        tempArray = getTheArray(rowNum, colnm, lr, lc)
        
        lr = 0
        lc = 0
        
    Next number

 

[Rick Rothstein]

Because you assigned Array functions within an overall Array function, you have to address the members of arrayData differently. For the red highlighted line of code above, it needs to read this way...

col = arrayData(number)(2)

and you would do similarly for the other arrayData references.

 

[Certified]

Thank you!

Because you assigned Array functions within an overall Array function, you have to address the members of arrayData differently. For the red highlighted line of code above, it needs to read this way...

col = arrayData(number)(2)

and you would do similarly for the other arrayData references.