Locate Item and color it

Hi,

I need help for a macro that will do the following:

Set Month = Sheets(“Sheet1”).Range(“AI5”)
Set Item = Sheets(“Sheet1”).Range(“AI6”)
Set Dates = Sheets(“Sheet1”).Range(“AI7”)

Locate the cells on the Sheet and Color them.

So in my example the macro must find P3 and Q3 and color them

I count on your help

Thanks in advance!