Add 3 items to combo box list

[Av8tordude]

I have this code that add unique list to my combo box. I would like to know how I can add three items that will show in the first three items in the combo box list

i.e.

Standard 3 item list that will show no matter what
mary
Tom
John

And then the list the code includes below the standard list

Private Sub UpdateList()
Dim Dic As Object: Set Dic = CreateObject("Scripting.Dictionary")
Dim rCell As Range, x, y, z

cbName.Clear
x = Wks.Cells(Rows.Count, "A").End(xlUp).Row

If x > 6 Then
    For Each rCell In Wks.Range("A7:A" & x)
        If Not Dic.Exists(rCell.Value) Then
            Dic.Add rCell.Value, Nothing
        End If
    Next rCell
    cbName.List = Dic.Keys
    
    With cbName
        For x = LBound(.List) To UBound(.List)
            For y = x To UBound(.List)
                If .List(y, 0) < .List(x, 0) Then
                    z = .List(y, 0)
                    .List(y, 0) = .List(x, 0)
                    .List(x, 0) = z
                End If
            Next y
        Next x
    End With
End If
End Sub

 

[Fluff]

How about

Private Sub UpdateList()
Dim Lst As Object: Set Lst = CreateObject("system.collections.arraylist")
Dim rCell As Range, x, y, z

cbName.Clear
x = Wks.Cells(Rows.Count, "A").End(xlUp).Row

If x > 6 Then
    For Each rCell In Wks.Range("A7:A" & x)
        If Not Lst.Contains(rCell.Value) Then
            Lst.Add rCell.Value
        End If
    Next rCell
    Lst.Sort
    cbName.List = Lst.ToArray
   
    With cbName
      .AddItem "Mary", 0
      .AddItem "Tom", 1
      .AddItem "John", 2
    End With
End If
End Sub

 

[Av8tordude]

I get an error...

: Set Lst = CreateObject("system.collections.arraylist")

 

[Yongle]

Another option

Private Sub UpdateList()
    Dim Dic As Object: Set Dic = CreateObject("Scripting.Dictionary")
    Dim rCell As Range, x, y, z
    cbName.Clear
    x = wks.Cells(Rows.Count, "A").End(xlUp).Row
    If x > 6 Then
        For Each rCell In wks.Range("A7:A" & x)
            If Not Dic.Exists("Z" & rCell.Value) Then
                Dic.Add "Z" & rCell.Value, Nothing
            End If
        Next rCell
        cbName.List = Dic.Keys
        With cbName
            For x = LBound(.List) To UBound(.List)
                For y = x To UBound(.List)
                    If .List(y, 0) < .List(x, 0) Then
                        z = .List(y, 0)
                        .List(y, 0) = .List(x, 0)
                        .List(x, 0) = z
                    End If
                Next y
            Next x
            .AddItem "Mary", 0
            .AddItem "Tom", 1
            .AddItem "John", 2
        End With
    End If
End Sub

 

[Fluff]

I get an error...

In that case just add this

     .AddItem "Mary", 0
      .AddItem "Tom", 1
      .AddItem "John", 2

after the Next xline in your code.

 

[Av8tordude]

Perfect...Thank you Fluff & Yongle for the help

 

[Fluff]

Glad we could help & thanks for the feedback.

 

[Av8tordude]

Guys, I just got around to put in the code in and its inserting a space in the middle.

 

[Fluff]

One of the cells in column A is blank.

 

[Av8tordude]

That was the first thing I checked...Not blank cells