Forum Discussion

Re: VBA problem - Excel for Mac

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

1 Reply

  • cmc13's avatar
    cmc13
    Copper Contributor

    HansVogelaar   Yep. This has solved.  I had suspicion that the issue was Mac specific but didnt know where to search.  Thx for this.

Resources