Sub Macro3()
Range("F8,I16,M22,P14,M10,K7,I8,F15,F22,H29,M30,Q28,Q22,M17,I24").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("C18").Select
Application.FindFormat.Clear
With Application.FindFormat.Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0