LOCAL lcSaveDefault, lcSavepath, lcReportDir, laReportArray lcReportDir = '' DIMENSION laReportArray[1] lcSaveDefault = SET('DEFAULT') lcSavepath = SET('PATH') lcReportDir = GETDIR('','Where is Report Directory?') SET DEFA TO (lcReportDir) SET PATH TO (lcReportDir) ADIR(laReportArray,'*.FRX') FOR i = 1 To ALEN(laReportArray,1) SELECT 0 USE laReportArray[i,1] ALIAS FixReport LOCATE FOR Objtype = 1 AND Objcode = 53 REPLACE FixReport.Tag WITH "" REPLACE FixReport.Tag2 WITH "" * Possible bug in that this removed the landscape and portrait settings *REPLACE FixReport.Expr WITH "" USE ENDFOR =messagebox('Processed ' + ALLTRIM(STR(ALEN(laReportArray,1))) + ' Reports') SET DEFAULT TO (lcSaveDefault) SET PATH TO (lcSavepath)Please back up the report before you try this just to be safe.