PUBLIC SUB cmbReplace_Activate() IF Action["replace"].Visible THEN {Replace} ELSE ReplaceAll ENDIF END The {Replace} puzzles me. Ron -- The only bug free software from MickySoft is still shrink-wrapped in their warehouse...