Hello mrjaune,

Change your code to this...


Code:
--------------------
Function Tps(Livrele As Range, Requispour As Range)

Dim Delay As Integer
Delay = Range(Requispour).Value - Range(Livrele).Value
If Delay < 0 Then
Requispour.Offset(0, 1).Interior.ColorIndex = 55
Requispour..Offset(0, 1).Font.ColorIndex = 0
Else
Requispour.Offset(0, 1).Interior.ColorIndex = 0
Requispour.Offset(0, 1).Font.ColorIndex = 1
End If

End Function

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

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=483356