If find = true then.... else.... end if

Hello,
I've got following problem. I've got selected cells in which I try to find value "cat" if I find one I want from macro to write in cell AC6 "found cat", else left value "not found cat", but something is missing in my code:

Please Login or Register  to view this content.

I would really appreciate your help folks.
Regards

Hi
Try this code sample:
Sub FindPhrase()
Dim result
result = InputBox("Enter phrase to find...")
Cells.Find(What:=result, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
If Selection.Find(What:=result, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate = True Then
Range("AC6").Value = "found cat"
Else
Range("AC6").Value = "not found cat"
End If
End Sub

Good luck
Tony

Nope, it doesn't work, and also I want it to be automatic, without InputBox.

Hi Drrazor,

It is probably a messy code but it should work if you use it in the This Workbook area to work on change

Please Login or Register  to view this content.

Let me know if this is what you are after