 Dim lWidth As Long
         Dim lHeight As Long
         grdThis.CellBoundary grdThis.SelectedRow, grdThis.SelectedCol, lLeft,
          lTop, lWidth, lHeight
         'Debug.Print lLeft, lTop, lWidth, lHeight
      End If
   End If
End Sub

''' &lt;summary&gt;
''' Allows validation of data prior to cancellation of an edit control for a
 particular
''' cell.
''' &lt;/summary&gt;
''' &lt;param name="lRow"&gt;Row being edited.&lt;/param&gt;
''' &lt;param name="lCol"&gt;Column being edited&lt;/param&gt;
''' &