I'm trying to change the color of a row if there is a date in column "N". I want it to only color from column "A" to "N" of that row. I have a code but it colors the entire row instead of stopping at "N".
Sub RowColoring()
'Applies different highlights to rows according to value in specified column
Dim cel As Range, rg As Range
Application.ScreenUpdating = False
Set rg = [N4] 'First cell in column that needs to be checked
Set rg = Range(rg, Cells(Rows.Count, rg.Column).End(xlUp))
For Each cel In rg.Cells
Select Case (">01/01/1990")
Case Is > "01/01/1990"
cel.EntireRow.Interior.ColorIndex = 35
End Select
Next
Application.ScreenUpdating = True
End Sub
Bookmarks