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

長いフォルダ名、ファイル名のついたOfficeファイルが開かない

フォルダ名とファイル名(拡張子含む)が２５６文字を超えるとファイルが開きません。

http://support.microsoft.com/kb/326039/en-us?fr=1

確認環境
Windows XP SP3
MS Office 2003