I think the field width is based on the current width of the column. Try before Save
oSheet.Range("A:Z").EntireColumn.AutoFit()
>Bellow is the whole code of the function. Unfortunatelly, it still truncates long denial reason to 48 chars. How did it internally determine what width to apply to the field? > <snip>