Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect
[AM8:AM19].Interior.Color = [L1].Interior.Color
[bg8:bg19].Interior.Color = [L2].Interior.Color
[ca8:ca19].Interior.Color = [L3].Interior.Color
If Intersect(ActiveCell, [H13:V18]) Is Nothing Then Exit Sub
'---------------
'---------