Converting Boolean Array to String Array and inputting into database (EXCEL 2010 VBA)

Hello,

I am new to Visual Basic and need help.

I am currently trying to make a database on excel. The database is going to be a list of vendors and the servies they offer along with contract information etc. I made a check box for each service that they offer and ask the user to check all that apply. I got everything up to inputting the services. My idea was to convert the range of cells to an array then ask that array if string values (the services) paired up with it are true, then store those values.

So far I have this:

Dim BooArray As Boolean
Dim DispArray As String
BooArray = Range("AD1:AD15").Value
For i = 1 To UBound(BooArray)
If BooArray(i).Value=True Then DispArray(i)=Range("AE(i)").Value
Next



I attached a jpeg of my excel screen for further explanation. Please let me know if you have any advice or another way of going about it. I am all ears

Thanks

Attached Images