NEWB to Macros - formatting exports

[BobBridges]

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:

    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.