This works fine - easy when you know how!
This enabled me to work out how to pupulate from a named renga, too, so
thanks a lot! :-)

Pete

Private Sub UserForm_Initialize()
Dim ListCell As Range
For Each ListCell In Range("CarList")
lstEmployees.AddItem ListCell.Value
Next
End Sub


"gti_jobert" wrote:


Code:
--------------------

i = 3
Do
With lstBox
.AddItem Cells(i, 1).Value
End With
i = i + 1
Loop Until Cells(i, 1).Value = ""

--------------------


--
gti_jobert
------------------------------------------------------------------------
gti_jobert's Profile: http://www.excelforum.com/member.php...o&userid=30634
View this thread: http://www.excelforum.com/showthread...hreadid=520486