Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding code to shrink columns to reasonable width
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" |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding code to shrink columns to reasonable width
Sub Cleanup()
With ActiveWorkbook .Names("Database").Delete Application.DisplayAlerts = False .SaveAs .FullName, xlWorkbookNormal Application.DisplayAlerts = True Activesheet.columns.Autofit End With End Sub -- Regards, Tom Ogilvy "Todd F." wrote in message ... 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" |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding code to shrink columns to reasonable width
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 "Tom Ogilvy" wrote: Sub Cleanup() With ActiveWorkbook .Names("Database").Delete Application.DisplayAlerts = False .SaveAs .FullName, xlWorkbookNormal Application.DisplayAlerts = True Activesheet.columns.Autofit End With End Sub -- Regards, Tom Ogilvy "Todd F." wrote in message ... 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" |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Expand and Shrink Rows and columns to hide information. | Excel Discussion (Misc queries) | |||
Can I expand & shrink columns? | Excel Discussion (Misc queries) | |||
Can rows/columns Automaticly Grow/Shrink? | Excel Discussion (Misc queries) | |||
Shrink and expand a number of columns/rows | Excel Worksheet Functions |