populate control from named range stored in addin

[Admin]

    If IsArray(a) Then
        .List = a
    Else
        .AddItem a
    End If