Count unique number in a column

[snb]

Sub M_unique()
    sn = Split(Join([transpose(A1:A10)], ","), ",")
    With CreateObject("scripting.dictionary")
       For j = 1 To UBound(sn)
         If sn(j) <> "" Then x0 = .Item(sn(j))
       Next
       MsgBox .Count
       MsgBox Join(.keys)
    End With
End Sub