I tried following.
Code runs non-stop 
Sub Macro3()
If Not ActiveSheet.Range("A1").Value Like "apple" Then Stop
End Sub