title: Highlight Entire Row when cell is selected without lose the original formats of the orignal row?
body: <p>The problem is when I highlight a row with some color the original color of the row is gone, so I tried this code, and again, it's removing the original format and color for the row</p>
  
  <p>This is the code from <a href="http://www.mcgimpsey.com/excel/highlightrow.html" rel="nofollow">http://www.mcgimpsey.com/excel/highlightrow.html</a></p>
  
  <pre><code>Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
          Const cnNUMCOLS As Long = 256
          Const cnHIGHLIGHTCOLOR As Long = 36  'default lt. yellow
          Static rOld As Range
          Static nColorIndices(1 To cnNUMCOLS) As Long
          Dim i As Long
          If Not rOld Is Nothing Then 'Restore color indices
              With rOld.Cells
                  If .Row = ActiveCell.Row Then Exit Sub 'same row, don't restore
                  For i = 1 To cnNUMCOLS
                      .Item(i).Interior.ColorIndex = nColorIndices(i)
                     Next i
              End With
          End If
          Set rOld = Cells(ActiveCell.Row, 1).Resize(1, cnNUMCOLS)
          With rOld
              For i = 1 To cnNUMCOLS
                  nColorIndices(i) = .Item(i).Interior.ColorIndex
              Next i
              .Interior.ColorIndex = cnHIGHLIGHTCOLOR
          End With
      End Sub
  </code></pre>
  
  <p>So, what shall I do with this problem? How can I retain the range's historical color so that when I deselect the row it reverts properly?</p>