Sub CheckN2()
Range("n2").Select
vN2 = ActiveCell.Value
Range("A2:K2").Select
If vN2 = "x" Or vN2 = "X" Then
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End Sub
Can formatting be done via a formula? Haven't heard of it...