Script To Add Conditional Formatting Rules To Column Of Cells

I'm having to successfully add three conditional formatting rules, and associated cell interior colour formats if any of the rules are met.

Each time I run my macro, I want to refresh every cell, within a defined range within a Col P, with these rules.

So far, I can add the three rules to each cell, but when I try and add the format colour - for when a rule is met - I keep getting a 'Subscript out of range error'.

(As an aside, is my For / Next loop approach the best one to take to add the formatting to each cell, or can it be written much simpler?)

Here's my script:

VB:
Dim Col_P As Range
Dim Cell_in_ColP As Long
'Set up range of cells to add conditional formatting rules to
Set Col_P = Worksheets("tRIIO Pack Notices").Cells(2, 16).Resize(Lrow - 1)

[Code] ......