With Selection.Interior   .Pattern = xlSolid   .PatternColorIndex = xlAutomatic   .ThemeColor = xlThemeColorDark1   .TintAndShade = 0   .PatternTintAndShade = 0 End With