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....
Bookmarks