ListBox Does Not Populate

[wsnyder]

Hi all,

Using Excel 365.

I'm trying to populate a ListBox on a UserForm from a ListObject.
But when I run it, the ListBox is empty.

Do you see anything wrong in the code?
There is 1 worksheet with 1 Table.

Private Sub frmRegion_Initialize()

'Populate list values

    'Objects
        Dim wb As Workbook
        Dim ws As Worksheet
        Dim lo As ListObject
        Dim arr As Variant
        Dim myList() As String
    
    'Variables
        Dim i As Long
    
    'Initialize
        Set wb = ThisWorkbook
        Set ws = wb.Worksheets(1)
        Set lo = ws.ListObjects(1)
        arr = lo.DataBodyRange
        ReDim myList(1 To UBound(arr))
    
    'Populate ComboBox from array
        For i = LBound(myList) To UBound(myList)
           myList(i) = arr(i)
        Next i
        
    'Assign array to combo box
        lstRegion.List = myList

End Sub

Thanks,
-w

 

[Fluff]

It's the simplest way of doing it. Although if you only have 1 column, I'd tend to use a combobox instead.

 

[wsnyder]

It's the simplest way of doing it. Although if you only have 1 column, I'd tend to use a combobox instead.

Thanks,

Does ComboBox have a multi-select property?
I tried cboBox first, but I did not see the multi-select.

Thanks,
-w

 

[Fluff]

No it doesn't, so you will need to stick with a list box.