Non-Printing Characters: Box with a Question Mark Unable to remove

[mdmackillop]

Here's a UDF to remove the character

Function MyClean(Data)
    MyClean = Replace(Data, ChrW(&HE04C), "")
End Function

I made up this to determine the character which was copied into another cell.

Sub FindUnicode()
For i = 1 To 128000
If InStr(1, ActiveCell, ChrW("&H" & Hex(i))) Then Exit For
Next
ActiveCell.Offset(, 1) = Hex(i)
End Sub