Display the unique word from a list

Try this array formula**:

=INDEX(A2:A7,MATCH(1,COUNTIF(A2:A7,A2:A7),0))

** array formulas need to be entered using the key
combination of CTRL,SHIFT,ENTER (not just ENTER).
Hold down both the CTRL key and the SHIFT key
then hit ENTER.

You're welcome. Thanks for the feedback!

Bugger! Id come up with a UDF

Function OneUnique(inRange As Range) As String
For Each cell In inRange
x = Application.WorksheetFunction.CountIf(inRange, cell.Value)
If (x = 1) Then
    OneUnique = cell.Value
End If
Next cell
End Function