This code works fine but my data has blanks, and this code shows them. What can I add to the code to remove them from showing up in the box?
Private Sub UserForm_Initialize() Dim v, e With Sheets("domain.cards").Range("c4:c500") v = .Value End With With CreateObject("scripting.dictionary") .comparemode = 1 For Each e In v If Not .exists(e) Then .Add e, Nothing Next If .Count Then Me.Combo_search_status.List = Application.Transpose(.keys) End With