Bom dia!!!

Tentando contribuir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
    With Target
        If .Interior.ColorIndex = xlNone Then
            .EntireRow.Interior.ColorIndex = 3
        ElseIf .Interior.ColorIndex = 3 Then
            Target.EntireRow.Interior.ColorIndex = xlNone
        End If
    End With
End Sub

Boa noite alexandre
Me expressei mal , não é pintar a celula e sim ressaltar momentaneamente a célula onde o cursor estiver.
abraços

Boa noite!!!

Veja ....se te atende dê retorno

Não se esqueça da mãozinha

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
'Faz o a cor do cursor de uma determinada cor
Static OldRange As Range
On Error Resume Next
Target.Interior.ColorIndex = 8 ' yellow - change as needed
OldRange.Interior.ColorIndex = xlColorIndexNone
Set OldRange = Target

End Sub