This is kind of a soft question:

In VBA, I know how to turn on text wrapping for cells in a table, and I know how to AutoFit the column width.

Dim wsTarget As Worksheet

With wsTarget.UsedRange
      .WrapText = True
      .EntireColumn.AutoFit
      .EntireRow.AutoFit
End With
I just don't like the results. Some columns get squished up and narrow with very tall rows (thanks to the wrapping) and some end up very wide (thanks to the AutoFit).

Has anyone developed or had any ideas on a method of determining column width that is a little more visually pleasing? Some way of splitting the difference between unwrapped wide columns and overly wrapped narrow columns?

Thanks!