自动突出显示代码

Question

我从谷歌获得了此代码。我想知道如何让代码不会删除用户所做的以前或新的突出显示。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
If Target.Cells.Count > 1 Then Exit Sub 
Application.ScreenUpdating = False 
' Clear the color of all the cells 
Cells.Interior.ColorIndex = 0 
With Target 
    ' Highlight the entire row and column that contain the active cell 
    .EntireRow.Interior.ColorIndex = 36 
    .EntireColumn.Interior.ColorIndex = 36 
End With 
Application.ScreenUpdating = True 
End Sub 

Answer 1

删除此行：

Cells.Interior.ColorIndex = 0