Filling Userform List box

[dimitri]

Hi,
I have a list of names held in cells A1:A10. Is there a way i can populate a list box in a userform by referencing a dynamic range or something similar? The length of the list will always be changing and I want this to be reflected in the list box every time the userfrorm is opened. Thanks.

 

[VoG]

Try like this in the userform's code module

Private Sub UserForm_Initialize()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    Me.ListBox1.AddItem Range("A" & i).Value
Next i
End Sub