IF TYPE( 'Thisform.ActiveControl.Name' ) = 'C' loActiveControl = Thisform.ActiveControl IF UPPER( loActiveControl.BaseClass ) # 'GRID' loActiveControl.SetFocus() ELSE FOR EACH loColumn IN loActiveControl.Columns IF loActiveControl.ActiveColumn = loColumn.ColumnOrder loControl = EVAL( 'loColumn.'+ loColumn.CurrentControl ) loControl.SetFocus() EXIT ENDIF ENDFOR ENDIF ENDIFMarcia