I know this post was created ages ago, but it's worth noting that this line

.Columns(i + 1).PreferredWidth = ...

works better as

.Columns(i + 1).Width = ...

in terms of sizing each column. Thank you for sharing this code with everyone!