Veja se assim serve.. mas precisa teclar ESC após COLAR...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = xlCopy Then
Exit Sub
Else
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 46
End If
End Sub

Edson, boa tarde

Deu erro de compilação: Bloco If sem End If

Vou mostrar os códigos que já tenho:
Sub Auto_Open()
Atualiza
End Sub
Sub Atualiza()
DownTime = Now + TimeValue("00:00:05")
Application.OnTime DownTime, "Atualiza"
Calculate
End Sub
Sub Auto_Close()
On Error Resume Next
Application.OnTime EarliestTime:=DownTime, Procedure:="Atualiza", Schedule:=False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
If (Target.Row > 1) Then
Target.Interior.ColorIndex = 44
End If
End Sub

Se puder me ajudar.....

Obrigado.

[]s