Did you download the file i told you..

the code is in worksheet change event..

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column < 1 Then Exit Sub
On Error GoTo err1
If Application.WorksheetFunction.CountIf(Range("a:a") , Target) 1
Then
Target = ""
Target.Select
MsgBox "Duplicate Entry."
End If
err1:
End Sub


this the code i am using.


---
Message posted from http://www.ExcelForum.com/