Excelのあるセルをクリックすると、そのセルを含む行が選択状態になるVBA

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Count <> 1) Then Exit Sub
Target.EntireRow.Select
Target.Activate
End Sub

確認環境
MS Office 2003