| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cycle thru & format all columns
I need to cycle thru each column, autofit it, and add 2 character
spaces. My current code is: Cells.Select Selection.EntireColumn.Hidden = False Selection.EntireRow.Hidden = False Cells.EntireColumn.AutoFit Range("A1").Select Wide = Selection.ColumnWidth Selection.ColumnWidth = Wide + 2 Range("B1").Select Wide = Selection.ColumnWidth Selection.ColumnWidth = Wide + 2 Range("C1").Select Wide = Selection.ColumnWidth Selection.ColumnWidth = Wide + 2 Range("D1").Select Wide = Selection.ColumnWidth Selection.ColumnWidth = Wide + 2 Etc, etc, etc, all the way to Range("IV1").Select Wide = Selection.ColumnWidth Selection.ColumnWidth = Wide + 2 Although this is functional, it looks like a mess. Any help in cleaning it up would be greatly appreciated. ~Arawn |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do I make a graph with 2-cycle X 3-cycle log-log graph paper? | Charts and Charting in Excel | |||
| cycle time | Charts and Charting in Excel | |||
| Time Cycle | Excel Discussion (Misc queries) | |||
| How do I keep result from 1 iteration cycle to use in next cycle? | Excel Discussion (Misc queries) | |||
| How do I cycle through all of the worksheets | Excel Discussion (Misc queries) | |||
Threaded Mode
