IF Cell.Value partly equals

You can use this code

If Left(Range("A13"), 4) = "Ford" Then [B13] = "Y"

or this

Selection.Find(What:="ford*", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate