Hi, Dan,

maybe use
Cells(7, n).ColumnWidth = 8.43
and set all column widths to 0 before.

Ciao,
Holger