Ricky,

Right click your sheet tab, view code and paste the code below in and try
selecting these wrapped cells

Dim myrow As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Rows(myrow).EntireRow.RowHeight = 12.75
Target.EntireRow.AutoFit
myrow = Target.Row
End Sub

Mike

"Ricky" wrote:

I have a simple data list with the following headers for col A, B and C:
"FirstName", "LastName", "Comments".

The "Comments" column (C) has up to 80 words at times in the one cell
that is formatted "wrap text".

Is there a way to expand the row height from the default of 17 pixels to
reveal the complete text entry in the "Comments" cell automatically when
the cursor is on that row?

Ideally, once you move to the next row, the row above will then collapse
back to 17 pixels, and the new row height will expand (if necessay) to
reveal the complete text the "Comments" field/cell .

Any ideas would be appreciated.

Thanks - Ricky