Klar gibts das,

einfach mit Selection_Change. Den folgenden Code in das betreffende Tabellenblatt:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.EnableEvents = False
  Intersect(ActiveCell.EntireRow, Target).Select
  Application.EnableEvents = True
End Sub

Gruß Mr. K.