Help with removing both values in a duplicate

cmc13 

Scripting.Dictionary is for Windows only, it doesn't exist on a Mac. Here is a version that should work on a Mac:

Function RemoveDupes1(pWorkRng As Range) As String
    'Update by Microsoft Tech Community
    Dim xValue As String
    Dim xChar As String
    Dim xOutValue As String
    Dim xCol As New Collection
    Dim i As Long
    xValue = pWorkRng.Value
    For i = 1 To Len(xValue)
        xChar = Mid(xValue, i, 1)
        On Error Resume Next
        xCol.Add Item:=xChar, Key:=xChar
    Next i
    For i = 1 To xCol.Count
        xOutValue = xOutValue & xCol(i)
    Next i
    RemoveDupes1 = xOutValue
End Function