adding code to shrink columns to reasonable width

[Guest]

I would like to add somehting to this clean up macro:

Sub Cleanup()
With ActiveWorkbook
.Names("Database").Delete
Application.DisplayAlerts = False
.SaveAs .FullName, xlWorkbookNormal
Application.DisplayAlerts = True
End With
End Sub

the above macro clears out a named range and it does a save as to the
current version of excel.

is it possible to added to the tail end of this routine the task of
shrinking the column width down to the widest value in the column - for some
reason the columns come though overly large "wide"

 

[Tom Ogilvy]

Sub Cleanup()
With ActiveWorkbook
.Names("Database").Delete
Application.DisplayAlerts = False
.SaveAs .FullName, xlWorkbookNormal
Application.DisplayAlerts = True
Activesheet.columns.Autofit
End With
End Sub

 

[Guest]

Hey Tom I did not want to continue to bother you - I do apprecaite your
additional time.

I got involved with somehting that it looks like I will fianlly be able to
get into some good VBA work.

Todd