How about this one?
For Each cl In Rng
If format(cl.Value, "dd/mm/yy") = "21/03/06" Then
cl.EntireRow.Font.bold = True

End If
Next

Frederick Chow
Hong Kong
"Odysseus" wrote in
message ...

Below is a small bit of code that will make a row bold depending on a
value in column Q.

I can make it work if the value in Q is text, however I need it to read
a datevalue. Is there a way to do this?

What I really would like to be able to do (though I was going to try
and work that one out for myself, small steps) is to make it referance
two dates in cell user definable cells and bold anything they input.
But the first step is to make it read dates..

Any ideas?


Code:
--------------------

Sub bold()

Set Rng = Range("Q1:Q5000")

For Each cl In Rng
If cl.Value = "21/03/06" Then
cl.EntireRow.Font.bold = True

End If
Next
--------------------



Thanks Very much
End Sub


--
Odysseus
------------------------------------------------------------------------
Odysseus's Profile:
http://www.excelforum.com/member.php...o&userid=14563
View this thread: http://www.excelforum.com/showthread...hreadid=524866