try typing the following in the worksheet object in question:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.EntireRow.Select
End Sub


---
Message posted from http://www.ExcelForum.com/