You could use the built in conditional formatting under the format menu
without using any code.
http://www.contextures.com/tiptech.html

will give you some generalized insights.

for code

Sub ABC()
Dim rng as Range, cell as Range
set rng = Range(cells(2,"F"),Cells(rows.count,"F").End(xlup) )
rng.EntireRow.Interior.ColorIndex = xlNone
for each cell in rng
if cell.Value cell.offset(0,-2) then
cell.EntireRow.Interior.colorIndex = 3
end if
Next
end sub

Change the "F" to reflect the column that would contain the ActiveCell in
your description.

--
Regards,
Tom Ogilvy







"hspence" wrote:

I am trying to write code that applies conditional formatting when the date
in the active cell is a larger value than the date in a cell 2 columns to the
left.

I have users that enter these 2 dates, in a list of records, and I want all
the text in each row to turn red when the above condition applies to the date
values entered in that row.

I want the conditional formatting code to evaluate every record in the list
each time a change is made to the dates in these 2 columns.

I have been trying to accomplish this with a Do While Loop, where I name the
starting cell, evaluate the cell 2 columns to the left, Set the formatting if
the condition is met, and move down to the next row, until encountering an
empty cell.

I am totally striking out here, and know my sytax is off, and my approach
may also not be the appropriate one for what I am trying to accomplish. Any
thoughts, or samlpes on how to compare 2 cell values in a row, apply
formatting if the condition is met, and then check the rest of the records
for the same condition?? (And update if the dates entered are changed?)