Highlight Row Cursor Is Currently In

I received this code from the board about a month ago. It works perfectly to highlight the row the cursor is currently in but, has one flaw. Once you place this code in the sheet module and the code initiates, it will "erase all other highlight colors" within your sheet. Is there a way to correct this problem?

Here is the code;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone

With Target.EntireRow.Interior
.ColorIndex = 37
.Pattern = xlGray25
.PatternColorIndex = 24
End With
End Sub