exclude header in combo box

[Av8tordude]

I have the code that fills the combo box with names. Problem if there are no names, the header is displayed in the combo box. If there are names, the header does not show. I would like to exclude the header if there are no names populating the combo box.

cbName.Clear
For Each rCell In Wks.Range("A7", Wks.Cells(Rows.Count, "A").End(xlUp))
    If Not Dic.exists(rCell.Value) Then
        Dic.Add rCell.Value, Nothing
    End If
Next rCell

For Each Key In Dic
    cbName.AddItem Key
Next

 

[Yongle]

Try

If Dic.Count > 1 Then
    For Each key In Dic
        cbName.AddItem key
    Next
End If

 

[Av8tordude]

It still shows the header...

 

[Fluff]

How about

cbname.Clear
X = wks.Cells(Rows.Count, "A").End(xlUp).Row
If X < 7 Then Exit Sub
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

 

[Av8tordude]

Works great....Thank you kindly Fluff

 

[Fluff]

Glad we could help & thanks for the feedback.