I'm trying to test your code, but what is the name of the form and
what is the name if the listbox?

--JP

On Oct 6, 11:29*am, PA wrote:
Hi,

Trying to get a listbox to work in a form... but not quite there yet!

The list should read the info from a range, but it empty... The code I
am using is below

Private Sub clients_select_Initialize()
* * Dim rng As Range, cel As Range
* * Set rng = ActiveWorkbook.Sheets("clients").Range("b2:b200")
* * With Me.clients_select_list
* * * * .Clear
* * * * For Each cel In rng.Cells
* * * * * * .AddItem cel.Value
* * * * Next
* * End With
End Sub

thanks a million