Private Sub Grid1_AfterCellEdit(nRow As Long, nCol As Long, ByVal sText As _
  String)
 
  If Grid1.IsEditMode = MODE_ADDNEW Then
    If nCol = 3 Then nCol = 5
  End If
 
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de