Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B2:CW102")) Is Nothing Then
With Target
If Selection.Interior.ColorIndex = 48 Then
Selection.Interior.ColorIndex = 3
.Font.Bold = True
.Font.Color = vbWhite
Else
Selection.Interior.ColorIndex = 48
.Font.Bold = False
.Font.Color = vbBlack
End If
End With
End If
End Sub