Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRange As Range
With Me
Set MyRange = Union(.[A1], .[A14], .[A27], .[A40], .[A53], .[A66], .[A79])
End With
If Not Intersect(Target, MyRange) Is Nothing Then
With MyRange.FormatConditions
.Delete
Set Fc = .Add(Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""" & Target.Value & """")
Fc.Interior.Color = 65535
End With
End If
End Sub