Well, I mean.. see pic below

Name: propertybox.png Views: 950 Size: 7.2 KB

and code...

Code:
Private Sub TestComboBox()
    Const strList As String = "one,two,three,four,five,six,other"
    
    With UserForm1
        .Caption = "Choose Item from List"
        .ComboBox1.List = Split(strList, ",")
        .ComboBox1.ListIndex = 0
        .Show vbModeless
    End With
End Sub

Private Sub ComboBox1_Change()
    ActiveCell.Value = Me.ComboBox1.Value
End Sub

Private Sub UserForm_Initialize()
    TestComboBox
End Sub
HTH.