 lTop As Long, lWidth As Long, lHeight As Long
Dim sText As String
   
   
   ' Don't allow editing the icon-only columns:
   If (grdThis.ColumnKey(lCol) = "file") Or (grdThis.ColumnKey(lCol) = "col8")
    Then
      bCancel = True
      Exit Sub
   End If
   
   ' Get boundary of the cell:
   grdThis.CellBoundary lRow, lCol, lLeft, lTop, lWidth, lHeight
   
   ' Get the text:
   If Not IsMissing(grdThis.CellText(lRow, lCol)) Then
      sText = grdThis.CellFormattedText(lRow, lCol)
   Else
      sText = ""
