Unique Values

Well I thought that was going to work,

It looked like it would work.

But everytime I entered data into any cell within those ranges I would get the error all the time.

You see only those two columns D and G have to be unique
all other columns can have duplicates.

Originally Posted by incjourn

This should work...

Private Sub Worksheet_Change(ByVal Target As Range)
For Each c In Range("A1:B5")
    If Target.Value <> "" And Target.Value = c.Value Then
        MsgBox "Value already entered elsewhere!"
        Target.ClearContents
    End If
Next c
End Sub

I didn't look at your code but I think you should be able to incorporate it