Help finding value and notify

thanks it works if i want it to say that it was not found but what i wanted was it to warn the typist that it has been entered in so that they know that they will be overwriting data.

I tried modiefying your code to the below

Columns("o:o").Select
Id = Range("x5").Value

Set abc = Selection.Find(What:=Id, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False)

If abc Is Nothing Then
' MsgBox "not found"

Else
abc.Activate
MsgBox "not found"
End If

some reason it finds the value but still says not found.

any ideas??

some reason it finds the value but still says not found.

It says not found because you placed the msgbox which gives this message in the else part. If you want to warn the typist, then change the if then to somthing like this:

If abc Is Nothing Then
' MsgBox "not found"

Else
abc.Activate
MsgBox "The value exists"
End If

Note: I have just changed the message in the message box.

- Mangesh

of coarse logical answer cheers mate. been bashing my head against a brick wall try to solve it but was looking to in detail.