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!

Now worries Bob, I understand your code as it is.

Note that I have added an extra row of dates in row 19. I need the extra row so that Item 1 is always 2 rows below the month.