I feel like I have pieces to the puzzle but can't figure out how to put together. What I am trying to do is discriminate data in column 6 upon opening the workbook to determine:

Dim LValue As Date

LValue = now

If Cells.Value < LValue And Cells.Interior.Color <> 6 Then ''Date inside cell is less than now and cell isn't filled yellow
MsgBox ("There are messages that require deletion")

What I need to figure out is how to target each cell within the column = 6 and check each cell within the column.

DTG TEST.xlsm

Thanks,
Brian