Populate a list box from a worksheet range

[Guest]

Good morning, all.

I'm sorry to say I'm now turning my attention to userforms (collective groan
from both hemispheres)

This one's quite easy, though (well, for SOMEone out there) Here's my code
to add some items to a listbox:

Private Sub UserForm_Initialize()
With lstEmployees
.AddItem "Dave"
.AddItem "Rob"
.AddItem "Greg"
.AddItem "Christina"
.AddItem "Mark"
End With
cmdAdd.Enabled = False
cmdRemove.Enabled = False
cmdRemoveAll.Enabled = False
End Sub

However, how to I popiulate the listbox with, say, A1:A6 (or a named range)
from (say) Shee t2?

Thanks in advance

Pete

 

[gti_jobert]

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

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

 

[Guest]

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