You can use the selection change even to check the user entry and ignore the text if already found
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Loop thru the entire contents to check for address
For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
' your code
If addressfound Then
MsgBox "Address exist!!!"
ActiveCell.Value = vbNullString
End If
Next i
End Sub
Cheers
Shasur
http://www.vbadud.blogspot.com