Hello Randell,
Here is an example. This code would be placed in the general declarations section (the very top) of the UserForm. You will need tot change the worksheet name and ListBox to what you are using. These appear in red font.
Sub LoadListBox()
Dim Cell As Range
Dim Rng As Range
Dim RngEnd As Range
Dim Wks As Range
Set Wks = Worksheets("Sheet1")
Set Rng = Wks.Range("A2")
Set RngEnd = Wks.Cells(Rows.Count, Rng.Column).End(xlUp)
Set Rng = IIf(RngEnd.Row < Rng.Row, Rng, Wks.Range(Rng, RngEnd))
For Each Cell In Rng
If Cell <> "" Then
ListBox1.AddItem Cell.Text
End If
Next Cell
End Sub
Bookmarks