Conditonal formatting based off date&time

thanks to the great help of daddylonglegs i've been able to take my julian date/time in column 'D' and apply it as a standard date/time format that excel understands in column 'BL'

what i would like to have happen is when the date/time in column 'BL' is 20 minutes from expiring (based off local computers time) for it to fill in the corresponding cell in column 'D' as 'yellow'

and when the time has expired to fill the corresponding cell in column 'd' as 'red'

is this possible either as a formula or in vba? Im using excel 2007

is it safe to assume that this cant be done then? any advice would be appreciated. TIA

sorry for the late reply, i'm living in korea at the moment and working some 'strange' hours to say the least.

anyways, so i added the conditional formatting, so thats done. now as for the time the code in the link you gave me was

Dim SchedRecalc As Date
Sub Recalc()
Range("C3").Value = Format(Now, "dd-mmm-yy")
Range("C4").Value = Format(Time, "hh:mm:ss AM/PM")

Call SetTime
End Sub

Sub SetTime()
SchedRecalc = Now + TimeValue("00:00:01")
Application.OnTime SchedRecalc, "Recalc"
End Sub

Sub Disable()
On Error Resume Next
Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
End Sub

now heres a really newb question, the part of that code that says 'range(c3) and (c4) do i need to change those to the appropriate blocks in my spreadsheet or is it unrelated? i feel pretty stupid asking that, since i think i know the answer...

the next question... with this macro, will i need to have a button to press on the sheet somewhere? (thats cool if its the case) or can i just add the code to the sheet and it will run automatically?

well... i got it working kinda...
problem is i have a macro that updates this page with info from the other sheets in the workbook.

Sub Test()

    Dim iSht    As Long
   Application.ScreenUpdating = False
    For iSht = 1 To Sheets.Count
        With Sheets(iSht)
            If .Name <> "Summary" Then
                .Rows(.Cells(.Rows.Count, "").End(xlUp).Row).Copy _
                        Destination:=Sheets("Summary").Cells(iSht, "")
            End If
        End With
    Next iSht
End Sub

how can i make it so this will only refresh the results from column a-j rows 1-31? once thats settled i know how to finish everything since i disabled that macro and the conditional formatting works great. =)