populate control from named range stored in addin

[Admin]

This should work

    Dim a
    
    a = ThisWorkbook.Worksheets("DATA").Range("myTypes").Value2
    
    With ComboBox1
        .List = a
    End With

but not sure why the rowsource property is not working.