Olá Pessoal

Como não entendo bem de VBA, procurei na net por uma solução, pois preciso que ao selecionar uma célula, a linha mude de cor

Encontrei este código abaixo, porém ele tem um problema, pois quando seleciono a linha ele apaga a cor original/anterior que deveria estar ali deixando simplesmente em branco e como minhas planilhas precisam ter várias cores, este código está incompleto. É possível mudar a cor da linha sem apagar a original?

Dim Linha As Long 'Variavel global
'Função que colore a linha da celula atualmente selecionada
Private Sub Workbook_Activate()
    On Error Resume Next
    Linha = ActiveCell.Row 'Variavel global recebe a o numero da linha atualmente selecionada
    Range(Cells(Linha, 2), Cells(Linha, 7)).Interior.ColorIndex = 6 'Destaca linha
End Sub

'Função para limpar a linha antes de colorir a proxima selecao
Private Sub Workbook_Deactivate()
    On Error Resume Next
    Range(Cells(Linha, 2), Cells(Linha, 7)).Interior.ColorIndex = xlNone 'limpa a cor anterior
End Sub

'Chamada das respectivas funções toda vez que uma nova célula é selecionada
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

   Call Workbook_Deactivate
   Call Workbook_Activate
End Sub