If word entered not in defined name range, copy & paste it to bottom of defined name range

Is it possible to have a macro that will analyze words entered in an area and if they do not match the any of the words in a defined name range, to copy and paste it to the defined name range? And if it does match, do nothing.

edit: I think it would be best if the text was ran through the trim function prior to looking for a match.

This is probably not exactly what you're looking for, but maybe a good start.

WordCheck.xlsm

Well, yea it's possible, but I have to ask: If the result of a no-match is to make it a match, then what's the point? Ultimately every word becomes a match.

Ok, so if I understand correctly, your not saying to add the words to the "Compare" named range, but rather, add them to the NoMatch range, and then rename the range to include the addition.

The following should do it. I also put in a check to not add the word to the NoMatch range if it is already there, and to sort the range after each addition.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Result As String, RowNum As Long
    If Target.Address = Range("Word").Address Then
        If Trim(Range("Word").Address) <> "" Then
            On Error Resume Next
            Result = Application.WorksheetFunction.VLookup(Trim(Range("Word").Value), Range("Compare"), 1, False)
            If Result = "" Then
                Result = Application.WorksheetFunction.VLookup(Trim(Range("Word").Value), Range("NoMatch"), 1, False)
                If Result = "" Then
                    Call AddToList
                End If
            End If
            On Error GoTo 0
        End If
    End If
End Sub

Sub AddToList()
    With Range("NoMatch")
        If .Cells(1, 1).Value = "" Then
            .Value = Range("Word").Value
            RowNum = .Row
        Else
            RowNum = Cells(Rows.Count, .Column).End(xlUp).Row + 1
            Cells(RowNum, .Column).Value = Range("Word").Value
        End If
        Range(Cells(.Row, .Column), Cells(RowNum, .Column)).Name = "NoMatch"
    End With
    With Range("NoMatch")
        .Sort Key1:=.Range("A1"), Order1:=xlAscending
    End With
End Sub