{**********************************************************************}
DEFINE cel, err_text

cel = MAKECELL(COL(), ROW())

IF (ISERR(INDIRECT(cel)))

    err_text = RTERRTEXT(RANGE(cel))

    MESSAGE "Cell " & cel & ": " & err_text

ELSE

	MESSAGE "Cell " & cel & " is not an error cell"

END IF
{**********************************************************************}
