Here is a VBA approach, select the drop down and when you have a duplicate in the range, a msgbox will pop up.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, x
Set rng = Range("B8:B14")
If Target.Count > 1 Then Exit Sub ' this stops code error if more than one cell is changed at once
If Not Application.Intersect(Target, Me.Range("B8:B14")) Is Nothing Then ' indicates the Target range
x = WorksheetFunction.CountIf(rng, Target)
If x > 1 Then
MsgBox "Duplicate Entry", , "What!!"
Target.Select
Target.ClearContents
End If
End If
End Sub
Bookmarks