Yes, that worked. Thanks Luke. This is my click.

Jack.

"Luke M" schreef in bericht
...
Using Mid returns a text string (note the quotation marks around the
date),
which won't compare properly with a Date (number). Use DateValue to
convert
string to date.

If DateValue(D) < Date Then ....
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"Jack Sons" wrote:

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