Private Sub Grid1_CellClick(...)
  Me.Tag = nCol
  Me.TimerInterval = 50
End Sub
 
Private Sub Form_Timer()
  Me.TimerInterval = 0
  Grid1.DoEdit Grid1.Row, Val(Me.Tag)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de