vba combobox list on Userform has blanks

[georgiboy]

@Georgi

Private Sub UserForm_Initialize()    
 sn = Sheets("domain.cards").Range("C4:C500")

 With CreateObject("scripting.dictionary")
   For j = 1 to ubound(sn)
     if sn(j,1) <> "" then x0 = .item(sn(j,1))
   Next

   If .Count Then Combo_search_status.List = .keys
 end with
End Sub

Hi snb,

Looks shorter just missing one line for me

Private Sub UserForm_Initialize()    
    Dim sn As Variant, j As Long, x0 As String
    
    sn = Sheets("domain.cards").Range("C4:C500")
    With CreateObject("scripting.dictionary")
        For j = 1 To UBound(sn)
            If sn(j, 1) <> "" Then x0 = .Item(sn(j, 1))
        Next
        If .Count Then Combo_search_status.List = .keys
    End With
End Sub