Doh! Sorry, I didn't think that through. So you want to look at the value of L & jr, but based on its value you want change the color (the ThemeColor and TintAndShade) of Range("A" & jr":L" & jr). So try this:
Code:
Set ColorRange = Range("A" & jr":L" & jr).Interior
Select Case Range("L" & jr).Value
Case "Phase"
ColorRange.ThemeColor = xlThemeColorLight2
ColorRange.TintAndShade = 0.799981688894314
Case "Sub-Phase"
ColorRange.ThemeColor = xlThemeColorDark1
ColorRange.TintAndShade = -4.99893185216834E-02
Case Else
End Select
As before, you don't have to name it ColorRange; I just picked that because I didn't want to take the time to make up a shorter name that still describes itself. I set ColorRange to the part of the row we want to color, I include Interior as part of it (so I don't have to repeat it on all four lines below) and then go with that.
This should work—but does it make sense to you? If you understand what I'm aiming for, you stand a better chance of spotting problem and of improving on it yourself later.