Search Not Found

I am using this to find a value which I have called Bravo1. The code stops if it can't find it how can I stop it doing that?

    Selection.Find(What:=Bravo1, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate