VBA Code for Highlighting Cells based on If then Rules

[June7]

Okay, here is a possible approach showing the first 2 rules.

Private Sub Worksheet_Change(ByVal Target As Range)
SetHighlight
End Sub


Sub SetHighlight()
Dim r As Integer, rCount As Integer
rCount = Range("A" & Rows.Count).End(xlUp).Row
For r = 2 To rCount
    Macro2 r, 16
    Macro2 r, 42
    Macro2 r, 43
    Macro2 r, 44
    If Cells(r, 16).Value = "Good" And Cells(r, 42).Value = 0 And Cells(r, 43).Value <= 10 Then
        Macro1 r, 16
        Macro1 r, 42
        Macro1 r, 43
    End If
    If Cells(r, 16).Value = "Good" And Cells(r, 42).Value = 1 And Cells(r, 44).Value <= 10 Then
        Macro1 r, 16
        Macro1 r, 42
        Macro1 r, 44
    End If
Next
End Sub


Sub Macro1(r As Integer, c As Integer)
    With Cells(r, c).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("P2").Select
End Sub


Sub Macro2(r As Integer, c As Integer)
    With Cells(r, c).Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub