Hi David,

Following seems to work :

Set Target = Range("$H$3")
If Target.Value = Range("$B$3").Value Then
MsgBox "That Entry is NOT ALLOWED!"
Target.ClearContents
Target.Select
End If

HTH
Cheers
Carim