Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Select Case Left(Target.Address(0, 0), InStr(Target.Address(0, 0), ":") - 1)
Case "D5"
Range("D5,H5,L5,P5,T5,X5,AB5,AF5,AJ5,AN5,AR5,AV5").Interior.Color = RGB(64, 64, 64)
Target.Interior.Color = RGB(153, 0, 153)
Case "H5"
Range("D5,H5,L5,P5,T5,X5,AB5,AF5,AJ5,AN5,AR5,AV5").Interior.Color = RGB(64, 64, 64)
Target.Interior.Color = RGB(153, 0, 153)
Case "L5"
Range("D5,H5,L5,P5,T5,X5,AB5,AF5,AJ5,AN5,AR5,AV5").Interior.Color = RGB(64, 64, 64)
Target.Interior.Color = RGB(153, 0, 153)
Case "P5"
Range("D5,H5,L5,P5,T5,X5,AB5,AF5,AJ5,AN5,AR5,AV5").Interior.Color = RGB(64, 64, 64)
Target.Interior.Color = RGB(153, 0, 153)
Case "T5"
Range("D5,H5,L5,P5,T5,X5,AB5,AF5,AJ5,AN5,AR5,AV5").Interior.Color = RGB(64, 64, 64)
Target.Interior.Color = RGB(153, 0, 153)
Case "X5"
Range("D5,H5,L5,P5,T5,X5,AB5,AF5,AJ5,AN5,AR5,AV5").Interior.Color = RGB(64, 64, 64)
Target.Interior.Color = RGB(153, 0, 153)
Case "AB5"
Range("D5,H5,L5,P5,T5,X5,AB5,AF5,AJ5,AN5,AR5,AV5").Interior.Color = RGB(64, 64, 64)
Target.Interior.Color = RGB(153, 0, 153)
Case "AF5"
Range("D5,H5,L5,P5,T5,X5,AB5,AF5,AJ5,AN5,AR5,AV5").Interior.Color = RGB(64, 64, 64)
Target.Interior.Color = RGB(153, 0, 153)
Case "AJ5"
Range("D5,H5,L5,P5,T5,X5,AB5,AF5,AJ5,AN5,AR5,AV5").Interior.Color = RGB(64, 64, 64)
Target.Interior.Color = RGB(153, 0, 153)
Case "AN5"
Range("D5,H5,L5,P5,T5,X5,AB5,AF5,AJ5,AN5,AR5,AV5").Interior.Color = RGB(64, 64, 64)
Target.Interior.Color = RGB(153, 0, 153)
Case "AR5"
Range("D5,H5,L5,P5,T5,X5,AB5,AF5,AJ5,AN5,AR5,AV5").Interior.Color = RGB(64, 64, 64)
Target.Interior.Color = RGB(153, 0, 153)
Case "AV5"
Range("D5,H5,L5,P5,T5,X5,AB5,AF5,AJ5,AN5,AR5,AV5").Interior.Color = RGB(64, 64, 64)
Target.Interior.Color = RGB(153, 0, 153)
End Select
End Sub
Bookmarks