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

Something like

 Dim rCl As Range
 
 With Selection
 Set rCl = .Find(What:="Bravo1", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        If Not rCl Is Nothing Then rCl.Select
        End With

Note Bravo1 should be a string - see speech marks
Selecting isn't usually necessary