How About Only Select the Rows?????Plz tell me, I dont know much about VBA. thanks

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Cells.Interior.ColorIndex = xlColorIndexNone
  Union(Target.EntireRow, Target.EntireColumn).Interior.ColorIndex = 6
End Sub
[/QUOTE]