Reference:
sub test()
dim rng as range
for each rng in range("a1:a5")
with rng


if .value>.offset(0,1).value then
.interior.colorindex = 3
else
.interior.colorindex = 4
end if
end with
next
end sub