Can someone tell me what is wrong with this please?
Cells.Select
If Selection.Find(What:="Ship 1", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate Is True Then
ActiveCell.Select
ActiveCell.FormulaR1C1 = "Lady Luck"
End If
Cells.Select
If Selection.Find(What:="Ship 1", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate Is True Then
ActiveCell.Select
ActiveCell.FormulaR1C1 = "Lady Luck"
End If