I am looking for a way to write conditional formatting in VBA. Below is my
code which works perfect but, there is a twist.

ws.Range("E4:AN" & sitelistStartingCell - 1).FormatConditions(1).Modify
xlCellValue, xlEqual, "Projected"

I also need to apply the same format if the cell value is "Past Due". Also,
if the cell directly next a cell containing "Projected" or "Past Due" has a
date less than or equal to "5/20/2009" I want to apply the same format
condition.
Any help will be greatly appreciated.
Thanks.