Public Sub checkCells()
Dim usedCellRange As Range

Set usedCellRange = Range("B14:J14")

For Each Cell In usedCellRange

If Cell.Value = "0" Then
Cell.Borders.Color = yellow

If [N4].Date < "01/02/1005" Then

Cell.Borders.Color = RGB(255, 255, 255)

Else

Cell.Borders.Color = White

End If
End If

Next Cell
Exit Sub

End Sub


Hi..
I am using the above code to change the colour of a cell if its not '0' and if its less than a certain date..i.e.. if no data has been entered after a certain date, the cell shows up as red (overdue). Once the data has been entered, the cell goes back to the colour white. It doesnt seem to b working very well.. can anyone pls help..????

Tried Cond formatting but that dont work either....