Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.ScreenUpdating = False Cells.Interior.ColorIndex = -4142 Rows(Target.Row).Interior.ColorIndex = 15 Columns(Target.Column).Interior.ColorIndex = 15 Application.ScreenUpdating = True End Sub