Hi all, hope all is well with you.
I have two cells, one in which the user enters a date and the adjacen
one adds 21 days to that date to give a deadline.

What I got from one of the earlier threads is a way to conditionall
format the deadline cell so that if the deadline is less than now(
then change the font to red (I can't use the conditional forma
function as I've used all three queries already!).

The code is:

Code
-------------------

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "E:E"

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
Select Case .Value
Case Is < Now(): .Font.ColorIndex = 3 'red
Case Is Now(): .Font.ColorIndex = 1 'yellow
End Select
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

-------------------


However, the problem is that the formula is only ran -after- text ha
been entered! That doesn't work for me since the deadline will expir
in 21 days, not the day the text is entered

How can I run the formula on the entire column as soon as the exce
form is opened or every set time or something?

Thanks very much

--
BravoGol

-----------------------------------------------------------------------
BravoGolf's Profile: http://www.excelforum.com/member.php...fo&userid=1475
View this thread: http://www.excelforum.com/showthread.php?threadid=46881