VBA to display distinct values in a combo box

[12Rev79]

Hi Experts,

I have a Combobox1 in my Excel and I tried the code below yet error occur.
The error is Red Font

What I am trying to do from this code are ;
1. to display in my ComboBox1 a Unique values from my Worksheet("Oders") column A
2. Exclude Blanks in the display of Combobox1

Can anyone is kind to help me figure out fixing the error and the code to achieve my needs.
------------------

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 .Count Then Me.ComboBox1.List = Application.Transpose(.keys)
End With
End Sub

-----------------------------

Thanks in advance,
12Rev79

 

[mart37]

I get no error.

If e <> "" And Not .exists(e) Then .Add e, Nothing

 

[12Rev79]

Thank you so much mart37, appreciated.
need your advise do I need to post a new thread to make the code display a Distinct value in my combobox1?
or can you help me figure out the code would be?

Thanks again