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 |