Very Basic ColorIndex question

[NicholasP]

Range("L20").Select
    With Selection.Interior   'RED
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With

Is there a simpler way to reduce the above code to something like the below code? I've played around a bit with this, but I was wondering if someone had an answer offhand.

Range("L20").Interior.ColorIndex = 4

I appreciate any assistance!

Thanks
Nick

 

[wigi]

This will work, is simpler and better coding.

With Range("L20")
    With .Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
End With

Or you can format a (hidden) cell and copy that cell instead of applying all sorts of formatting properties.

Wigi

 

[NicholasP]

That is a little better, though not as simple as I would've hoped for. I hadn't thought about the copy/paste idea. Thanks for the input.........