** Assign new column names to the first row for lnI = 1 to m.lnCols .Cells(1,laFieldNames[m.lnI,3]).value = laFieldNames[m.lnI,1] .range(chr(64 + m.lnI) + ":" + chr(64 + m.lnI)).columns.columnwidth = ; .range(chr(64 + m.lnI) + ":" + chr(64 + m.lnI)).columns.columnwidth * 5 && To make sure long descriptions fit nextThat gives