Try this:

Sub AutoFitAllSheets

For Each wksht In ActiveWorkbook.Worksheets
wksht.Activate
wksht.Cells.Select
Selection.EntireColumn.AutoFit
wksht.Range("A1").Select
Next

End Su

--
crispb
-----------------------------------------------------------------------
crispbd's Profile: http://www.excelforum.com/member.php...fo&userid=1088
View this thread: http://www.excelforum.com/showthread.php?threadid=27639