Did a quick on the forum here and found the following website:
http://www.cpearson.com/excel/ontime.htm

You could use some of the functions found there to have your sub run every
hour or the frequency that you desire.

"BravoGolf" wrote:


Hey JNW, thanks for your reply.
Forgive me, but do you mean I do the following?

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

Private Sub workbook_activate()
GoTo Worksheet_Change
End Sub


Private Sub Workbook_Open()
GoTo Worksheet_Change
End Sub

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

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


I think my syntaxt might be wrong :(

Vacation's Over, thank you for your reply, but unfortunately I cannot
use any more conditional formats.


--
BravoGolf


------------------------------------------------------------------------
BravoGolf's Profile: http://www.excelforum.com/member.php...o&userid=14755
View this thread: http://www.excelforum.com/showthread...hreadid=468812