[RESOLVED] Help with arrays - Almost there!

[New2vba]

Back again with cap in hand...

Below is code kindly provided by killazzz. Attached is the document that contains the code.

Within the document is a userform that contains a series of comboboxes, some of which are disabled. Each combobox represents an item that has a unique price.

When the code is executed, any comboboxes that are enabled, but false will be added to the document in the form:

checkbox.caption <TAB SPACE> £ <TAB SPACE> Price

Private Sub CommandButton1_Click()
 
'you define an array of all your prices and string variables
Dim A As Variant
Dim x As Integer
Dim chkMyCheck As Control
Dim MainPriceControlArray(5, 2) As String
 
    MainPriceControlArray(1, 1) = "150.00"       'Chain Shorteners
    MainPriceControlArray(2, 1) = "100.00"        'Protection Covers
    MainPriceControlArray(3, 1) = "2000.00" '     'Load Cells
    MainPriceControlArray(4, 1) = "400.00" '    strCheckBox4= "400.00"
    MainPriceControlArray(5, 1) = "500.00" '    strCheckBox5 = "500.00"
    
    MainPriceControlArray(1, 2) = "chkChainShorteners"
    MainPriceControlArray(2, 2) = "chkProtectionCovers"
    MainPriceControlArray(3, 2) = "chkLoadCells"
    MainPriceControlArray(4, 2) = "strCheckBox4" '    strFireExtingExt
    MainPriceControlArray(5, 2) = "chktest124578986532" '    strFireExtingInt
    
'then you loop through your array and controls in the document
' you check each  control for it's anabled and value property and take the appropriate action
 
    For x = 1 To UBound(MainPriceControlArray)
        For Each chkMyCheck In Me.Controls
            If LCase(Left(chkMyCheck.Name, 3)) = "chk" And InStr(1, MainPriceControlArray(x, 2), chkMyCheck.Name, vbTextCompare) <> 0 Then
                If chkMyCheck.Enabled = True And chkMyCheck.Value = False Then
                    ActiveDocument.Bookmarks("Test").Range.Text = vbCr & chkMyCheck.Caption & vbTab & "£" & vbTab & MainPriceControlArray(x, 1)
                Exit For
                End If
            End If
        Next chkMyCheck
    Next
    
End Sub

I am now attempting to alter the code slightly so that the items to be added to the document are done so using a table.

What I have attempted to do is create another array that has 3 columns and the number of rows is equal to the number of items to be added. I than want to create a table of equivalent dimensions and add that to the document.

For example, if there were 2 items to be added to the document (in reality the list is much larger), I would get a 2 row, 3 column table, which would contain the following items.

(1,1) = checkbox1.caption
(1, 2) = "£"
(1, 3) = checkbox1 price

(2,1) = checkbox2.caption
(2,2) = "£"
(2, 3) = checkbox2 price

I also want to set column sizes and word alignment, but can probably work that out later. I have made numerous attempts at the above, but am having real difficulty. I have referenced arrays in the help files in vba, but can't seem to apply the information correctly (obviously it is the help files at fault )

Any help appreciated.