One way:

Option Explicit
Function JustUnique(str As String) As String

Dim Uniques As Collection
Dim iCtr As Long

Set Uniques = New Collection

On Error Resume Next
For iCtr = 1 To Len(str)
Uniques.Add Item:=Mid(str, iCtr, 1), key:=CStr(Mid(str, iCtr, 1))
Next iCtr
On Error GoTo 0

str = ""
For iCtr = 1 To Uniques.Count
str = str & Uniques.Item(iCtr)
Next iCtr

JustUnique = str

End Function

If you wanted to sort that collection, you could use the sort routine in John
Walkenbach's example:
http://j-walk.com/ss/excel/tips/tip47.htm

JMay wrote:

If I had in cell A1:

watbppsdddesfgg

does anyone have a UDF that would produce
in B1:

watbpsdefg

(just the unique characters)

TIA,

--

Dave Peterson