So here is my code
Sub Worksheet_SelectionChange(ByVal Target As Range) 'single click version
Range("J3:J32").Interior.Color = RGB(200, 160, 35)
Range("K3:K3").Interior.Color = RGB(200, 160, 35)
If Intersect(Target, Range("J3")) Or Intersect(Target, Range("J4")) Is Nothing Then Exit Sub...