reen.MousePointer = vbHourglass
   With grdThis
      .Redraw = False
      For lRow = 1 To .Rows
         .AutoHeightRow lRow
      Next lRow
      .Redraw = True
   End With
   Screen.MousePointer = vbDefault
End Sub

''' &lt;summary&gt;
''' Allows the selected cell's text to be changed through a dialog.
''' &lt;/summary&gt;
Private Sub cmdCellText_Click()
Dim sText As String
Dim sI As String
Dim iCol As Long

   If (grdThis.RowMode) Then
      ' When in row mode use the long text column
      iCol = 5
  