Combobox List Not Populating With VBA AddItem code.

[Ark68]

I am trying to create a combobox list from a dynamic range of cells using this code. I get no error, but my combox is empty.

In column V of worksheet ws_staff, I have values occupying V4:V11.

    'create combobox list
    dim sed =as long
    dim srng as range, cloc as range
    sed = ws_staff.Cells(ws_staff.Rows.Count, "V").End(xlUp).Row
    srng = ws_staff.Range("V4:V" & sed)
    For Each cloc In srng
        With Me.ComboBox1
            .AddItem cloc.Value
        End With
    Next cloc

 

[6StringJazzer]

Change one line of code

Set srng = ws_staff.Range("V4:V" & sed)

I believe this would also work:

    Set srng = ws_staff.Range("V4:V" & sed)
    For Each cloc In srng
        With Me.ComboBox1
            .List = srng
        End With

 

[Ark68]

Thank you Jeff for your help. This was indeed what I needed!