Qualcosa del genere?

codice:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Rows(Target.Row).Interior.Color = vbYellow
End Sub