Conditional formatting using VBA

I am trying to get code to apply a red fill in cells in columns B:C until last cell when the date < Today & Columns D until last cell if the column does not contain an "@" symbol, I am working with excel 2003 and cannot have numerous conditional formats so I need VBA to do it, Can anyone point me in the right direction?

Burt,

which column has the date B or C or is it both?

thanks,
fonzie

Hi Burt,

Try this code and let me know if this works for you.

Please Login or Register  to view this content.

thanks,
fonzie

Another option:

Please Login or Register  to view this content.

Fonzie29,
Thanks for the great code but I am experiencing a few problems, I had to move the cell references and sheet name and now the code will only work down as far as row 13? Can you have a look at this and see if you can find out what is wrong, I also need an adjustment so that the formatting colour's in the cells which have " / /" displayed. I have attached a copy of the sheet for reference.
Johnny