Comparing Words in Cell and Showing Difference

A small modification to Martin's code will do it.

Function SameWords(A As Range, B As Range) As String
AArray = Split(LCase(A), " ")
BArray = Split(LCase(B), " ")
For AWord = 0 To UBound(AArray)
    If Len(AArray(AWord)) > 0 Then
        AWordNew = True
        For BWord = 0 To UBound(BArray)
            If AArray(AWord) = BArray(BWord) Then
                AWordNew = False
                Exit For
            End If
        Next BWord
        If AWordNew = False Then 'True Then
            SameWords = SameWords & AArray(AWord) & ","
        End If
    End If
Next AWord
If Len(SameWords) > 0 Then SameWords = Left(SameWords, Len(SameWords) - 1)
End Function