LOCAL loControl, loColumn IF TYPE('_Screen.ActiveForm.ActiveControl') = 'O' IF _Screen.ActiveControl.BaseClass = 'GRID' * Drill Down into the grid to find the Active Cell loColumn = _Screen.ActiveForm.ActiveControl.Columns[_Screen.ActiveForm.ActiveControl.ActiveColumn] loControl = loColumn.CurrentControl ELSE loControl = _Screen.ActiveForm.ActiveControl ENDIF ENDIFThis is all untested and written off the top of my head, so you will need to tweak it. But you get the general idea...