Excel VisualBasic Script

Sub Worksheet_SelectionChange(ByVal Target As Range)
             Rows.Interior.ColorIndex = xlColorIndexNone
             Target.EntireColumn.Interior.ColorIndex = 36
             Target.EntireRow.Interior.ColorIndex = 36
         End Sub