Sort Combobox list alphabetically

Try

Private Sub UserForm_Initialize()

    Dim oneCell As Range
    Dim i As Long

    ComboBox1.Clear

    For Each oneCell In Range("ListFruit")
        For i = 0 To ComboBox1.ListCount - 1
            If oneCell.Value < ComboBox1.List(i) Then Exit For
        Next i
        ComboBox1.AddItem oneCell.Value, i
    Next oneCell

    ComboBox1.ListIndex = 1
End Sub