Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Calculate
If Target.Column > 1 And Target.Row > 2 Then
Cells.Interior.Color = RGB(255, 255, 255)
Union(Range(Cells(Target.Row, 2), Cells(Target.Row, 36)), Columns(Target.Column)).Interior.Color = RGB(111, 180, 241)
End If
End Sub