Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("B7:B17"), Target) Is Nothing Then
Range("C5:N17").Interior.ColorIndex = xlNone
For Each cel In Range("C5:M5")
If Left(cel, 1) = CStr(Target) Then
Range(Cells(5, cel.Column), Cells(17, cel.Column + 1)).Interior.ColorIndex = 36
End If
Next
End If
End Sub