Howard,
Something to try...
Make the columns wider than the text, then do the autofit...
'--
Sub JustRight()
ActiveSheet.UsedRange.Columns.EntireColumn.ColumnW idth = 150
ActiveSheet.UsedRange.Columns.EntireColumn.AutoFit
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"Howard Kaikow"

wrote in message
The problem described in http://support.microsoft.com/kb/214394 seems to
prevent AutoFit from working as expected.
Is there a progammatic solution?
I tried
With wst.Columns.EntireColumn
.Font.Name = "Courier New"
.AutoFit
End With
Still required manual adjustment.
One approach, too ugly to use, might be to search for the largest cell in
each column and adjust the column size.
Is there a better way?
--
http://www.standards.com/; See Howard Kaikow's web site.