 Else
      ' Otherwise use the selected column:
      iCol = grdThis.SelectedCol
   End If
   
   ' Get the current text
   sText = grdThis.CellText(grdThis.SelectedRow, iCol)
   ' Use nasty VB input box dialog to get text:
   sI = InputBox$("Enter text", , sText)
   If (Len(sI) &gt; 0) Then ' surely some way to determine whether cancel clicked
    is *obviously* required?
      ' Change the text
      grdThis.CellText(grdThis.SelectedRow, iCol) = sI
   End If
   
End Sub

''' &lt;summary&gt;
''' Delete th