Cor da linha selecionada


#1

Uma dúvida aí, se puderem me ajudar, eu agradeço.

A partir da linha 13 para baixo, toda a linha que eu selecionar, ela fica amarela.
Só que eu nao quero que mude a cor das linhas 12 para cima, mas toda vez que aperto na 11, 10, 9… elas saem desse azul e ficam amarelas.
O código que usei foi esse:

Dim LinhaSelecAnterior As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case ActiveCell.Row
Case 12
Select Case LinhaSelecAnterior.Row
Case Is <> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11
Rows(LinhaSelecAnterior.Row).Interior.ColorIndex = 0
End Select

Case Else
Range(“A” & ActiveCell.Row & “:J” & ActiveCell.Row).Interior.ColorIndex = 6
If Not LinhaSelecAnterior Is Nothing Then
If ActiveCell.Row <> LinhaSelecAnterior.Row Then
Rows(LinhaSelecAnterior.Row).Interior.ColorIndex = 0
End If

End If

Set LinhaSelecAnterior = ActiveCell
End Select

End Sub