WyldeCarde
MIS
Hi all
What I am trying to do is, if a date in a subsection of column is less than the date stored in Cell D2, fill the entire row in light grey. If not, fill it in white.
So far I have (a lot if it from this very forum)-
Which just colours everything in grey regardless of what values are in there. I get the feeling I'm doing something unspeakably obvious and stupid but my brain has gone all melty and I can't figure it out.
**********************************************************
If I had my own icecream van the chimes would play "Don't fear the reaper"
**********************************************************
What I am trying to do is, if a date in a subsection of column is less than the date stored in Cell D2, fill the entire row in light grey. If not, fill it in white.
So far I have (a lot if it from this very forum)-
Private Sub Worksheet_Activate()
Dim C As Range
Application.ScreenUpdating = False
For Each C In Range("e16:e255")
If C.Value < "D2" Then
C.EntireRow.Select
With Selection.Interior
.ColorIndex = 15
End With
Else
C.EntireRow.Select
With Selection.Interior
.ColorIndex = 16
End With
End If
Next C
End Sub
Which just colours everything in grey regardless of what values are in there. I get the feeling I'm doing something unspeakably obvious and stupid but my brain has gone all melty and I can't figure it out.
**********************************************************
If I had my own icecream van the chimes would play "Don't fear the reaper"
**********************************************************