VBA Excel ComboBox to display distinct values and ignore blank cells

[12Rev79]

Hi Experts,

Please anyone can help me figure out to modify the code below that
it would display Distinct value and ignore blanks cells.

Private Sub ComboBox1_Change()
Dim N, e
With Sheets("Orders").Range("A:A")
N = .Value
End With
With CreateObject("scripting.dictionary")
.comparemode = 1
For Each e In N
If Not .exists(e) Then .Add e, Nothing
Next
If e <> "" And Not .exists(e) Then .Add e, Nothing

End With
End Sub

Thanks in advance,
12Rev79

 

[Fluff]

Duplicate to: VBA to display distinct values in a combo box

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread. If you do not receive a response, you can "bump" it by replying to it yourself, though we advise you to wait 24 hours before doing so, and not to bump a thread more than once a day.