Multiple ranges in same argument

[scottiedawg4]

At the end of a macro I format some non-adjacent ranges. Is there a way to do this once, rather than many times?

Range("A42:E42").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
Range("A44:E44").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With

 

[lenze]

With Union(rng1,rng2,etc).Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorDark1
    .TintAndShade = -0.249977111117893
    .PatternTintAndShade = 0
End With

No need to Select

lenze

 

[scottiedawg4]

Excellent, thank you.

I get this error "Type Mismatch"

With Union("A44:E44", "A47:A50").Interior

 

[lenze]

With Union (Range("A44:E44"),Range("A47:A50")).Interior

lenze