Attempting to Highlight Cells Based on String within Cell

Hmmm, ok! Thank you for your prompt response, I thought declaring the variable (Dim currCell As Range) would do it.

I have currently set it to:

Set currCell = Range("E10: AI155")

But now I`m receiving a run-time error `1004`: Application-defined or object-defined error on the first if statement. Any suggestions?