IF This.RelativeColumn = 7 THEN IF (LASTKEY() = 4) OR (LASTKEY() = 9) OR (LASTKEY() = 13) THEN nRow = This.ActiveRow This.DoScroll(6) This.ActivateCell(nRow,1) NODEFAULT ENDIF ELSE IF This.RelativeColumn = 1 THEN IF (LASTKEY() = 19) OR (LASTKEY() = 15) THEN NODEFAULT ENDIF ENDIF ENDIFBest Regards.