Evaluate(Replace Query

[heffo500]

Hi

I'm using the below bit of code:

bk.Sheets(1).Range(addr).Value = Evaluate(Replace("IF(@<>""APPLE"",FALSE,@)", "@", addr))

addr is the range I'm searching through using xlUp.

I'm trying to get to the above to work whereby it will find "Apple" anywhere in the string in the cells as its looping whereas the above only is searching for the exact string in each cell equal to "Apple".

Any ideas?

 

[Marcelo Branco]

Maybe

bk.Sheets(1).Range(addr).Value = Evaluate(Replace("IF(ISERROR(SEARCH(""APPLE"",@)),FALSE,@)", "@", addr))

M.