Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target(1, 1), [AH32, AH36, AH39, AH41, AH45, AH47, AH49, AH51, AN32, AN36, AN39, AN41, AN45, AN47, AN49, AN51, M39, M49, S39, S49, AH56, AH58, AH62, AH64, AN56, AN58, AN62, AN64, M64, S64, S86, S88, S90, S94, S96, S100, M96, M100,AH96, AN88, AN90, AN92, AN94, AN96, S118, S120, S122, S126, S128, S132, M128, M132, AH128,AN120, AN122, AN124, AN126, AN128, S150,S152, S154, S158, S160, S164, M160, M164, AH160, AN152, AN154, AN156, AN158, AN160, S182, S184, S186, S190, S192, S196, M192, M196,AH192, AN184, AN186, AN188, AN190, AN192, AN200, AH200, X202, X204, X206, X208, X210, X212, X214, X216, X218, X220, X223, AB202, AB204, AB206, AB208, AB210, AB212, AB214, AB216, AB218, AB220, AB223, X228, X230, X232, X234, AB228, AB230, AB232, AB234, AH244, AH246, AN244, AN246,AH262, AH266, AH276, AN262, AN266, AN276, AH280, AH288, AH292, AH294, AN280, AN288, AN292, AN294,AH304, AH308, AH310, AH318, AH320, AH324, AN304, AN308, AN310, AN318, AN320, AN324, AH332, AH336, AH344, AH348, AN332, AN336, AN344, AN348, AH358, AH360, AH364, AH374, AH378, AN358, AN360, AN364, AN374, AN378, AH390, AH400, AH404, AN390, AN400, AN404, AH416, AH426, AH430, AN416, AN426, AN430, AH444, AH448, AH458, AH462, AN444, AN448, AN458, AN462, AH472, AH476, AH490, AN472, AN476, AN490, AH504, AN504, AH528, AN528, AH543, AN543, AH553, AN553, AH557, AH561, AH565, AH567, AH569, AH571, AH573, AH575, AH577, AH579, AN557, AN561, AN565, AN567, AN569, AN571, AN573, AN575, AN577, AN579, AH587, AH601, AH605, AH609, AH611, AN587, AN601, AN605, AN609, AN611, AH613, AH615, AH617, AH619, AN613, AN615, AN617, AN619, AH627, AH639, AH641, AH643, AH645, AN627, AN639, AN641, AN645, T659, T661, T663, AN659, AN661, AN663, AN665, AN667, AN669, AH679, AH681, AH683, AH691, AH693, AH699, AH704, AN679, AN681, AN683, AN691, AN693, AN701, AN704, AB706, AH706, AN706, AH710, AN710, P714, W714, AF714, AN714, AH718, AH722, AH724, AH726, AH728, AN718, AN722, AN724, AN726, AN728, S732, Z734, Z736, Z738, Z740, AD734, AD736, AD738, AD740, AN742]) Is Nothing Then
With Target(1, 1)
.Font.Name = "Wingdings"
.Font.Size = 22
.Value = IIf(.Value = Chr(168), Chr(254), Chr(168))
End With
End If
End Sub