I prefer the listbox approach to this problem where number of entries is variable.

Add a listbox to the userform with this code added to the Initialize event.


ListBox1.ListStyle = fmListStyleOption
ListBox1.MultiSelect = fmMultiSelectMulti
For i = 1 To 10
If Cells(i, 1) <> "" Then
    ListBox1.AddItem Cells(i, 1).Value
End If
Next