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:

    If Selection.Find(What:="cat", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate = True Then
    Range("AC6").Select
    ActiveCell.FormulaR1C1 = "found cat"
    Else
    Range("AC6").Select
    ActiveCell.FormulaR1C1 = "not found cat"
    End If

I would really appreciate your help folks.
Regards