Herry

Add Stop after Then.
If Not ActiveSheet.Range("A1").Value Like "apple" Then Stop