Hello,

Function NoDupe(r As Range) As Variant
Dim rC As Variant, obj As Object
Set obj = CreateObject("Scripting.Dictionary")
For Each rC In Split(r, ",", -1)
obj.Item(rC) = rC
Next rC
NoDupe = Join(obj.keys, ",")
Set obj = Nothing
End Function

Regards,
Bernd