Or function not operating as expected

[athyeh]

Hello,

I have the following code:

Do While Range("A1").value <> "Carrot" Or Not Range("A1").value Like "Apple*"
sheet1.rows(1).delete
Loop

I want this to delete rows until the A1 says "Carrot" or "Apple Juice" but it keeps on deleting all rows no matter what value it is in. When viewed in isolation it works but not as an "Or" function so feel like there's something with the way I'm using "Or"? but usage seems congruent based on web examples.

Thanks in advance,

Tony