Change the range color in selection change event
Sub Worksheet_SelectionChange(ByVal Target As Range) Rows.Interior.ColorIndex = xlColorIndexNone Target.EntireColumn.Interior.ColorIndex = 36 Target.EntireRow.Interior.ColorIndex = 36 End Sub