Two columns unique distinct values to listbox

Private Sub UserForm_Initialize()
    Dim v, v2, e
    With Sheets("Hoja1")
        v = Application.Transpose(.Range("A1:a" & .Cells(Rows.Count, 1).End(xlUp).Row))
    End With
    With Sheets("Hoja2")
        v2 = Application.Transpose(.Range("A1:a" & .Cells(Rows.Count, 1).End(xlUp).Row))
    End With
    With CreateObject("scripting.dictionary")
        .comparemode = 1
        For Each e In v
            If Not .exists(e) Then
                .Add e, 1
             End If
        Next
        For Each e In v2
            If .exists(e) Then
                .Remove e
             End If
        Next
        If .Count Then Me.ListBox1.List = Application.Transpose(.keys)
    End With
End Sub

Originally Posted by mohadin

Private Sub UserForm_Initialize()
    Dim v, v2, e
    With Sheets("Hoja1")
        v = Application.Transpose(.Range("A1:a" & .Cells(Rows.Count, 1).End(xlUp).Row))
    End With
    With Sheets("Hoja2")
        v2 = Application.Transpose(.Range("A1:a" & .Cells(Rows.Count, 1).End(xlUp).Row))
    End With
    With CreateObject("scripting.dictionary")
        .comparemode = 1
        For Each e In v
            If Not .exists(e) Then
                .Add e, 1
             End If
        Next
        For Each e In v2
            If .exists(e) Then
                .Remove e
             End If
        Next
        If .Count Then Me.ListBox1.List = Application.Transpose(.keys)
    End With
End Sub

amaizing code thanks

Welcome any time