FOR EACH oColumn IN THIS.COLUMNS lccc = oColumn.CURRENTCONTROL *** replace the header with custom header class *** created in code IF !EMPTY(THIS.cHeaderClass) oColumn.REMOVEOBJECT("hdr" + SUBSTR(oColumn.&lccc..NAME, 4)) oColumn.ADDOBJECT("hdr" + SUBSTR(oColumn.&lccc..NAME, 4), ; THIS.cHeaderClass) ENDIF ... ENDFORPlease advise