Hi all,

I have this lines of code:

D = Mid(Range(Cells(rijrij, kolkol), Cells(rijrij, kolkol)), NN, 100)
If D < Date Then Range(Cells(rijrij + 20, kolkol), Cells(rijrij + 20,
kolkol)) = D

If the cursor hoovers over D I see a frame with yellow back ground and in
it:
D = "03 september 2009"
Hoovering over date shows a frame with yellow back ground and in it:
Date = 1-9-2009

The first line of code extracts the last part of a cell, that part is a
date.
I want to compare it with the date of today and if D is a day in the past I
want to color that part of the cell content blue.
I used the second line not for the purpose of putting that date 20 rows
lower, but just to see if the comparison would work. It won't. I tried with
formatting D as well as date, in a n umber of ways, but none was successful.
What code do I need?

Your advice will be appreciated.

Jack Sons
The Netherlands