Column width fixing

A

Albertob

I want to permantely fix the width of columns in a table so that everytime I refresh the table, the columns do not resize themselves automatically..

Any suggestions
 
B

Bob Kilmer

Not sure how to permanently set widths, but I have been known to write some
code I could call when necessary to restore specific column widths. Some
examples...

Sub SetColumnWidths__6()
Call SetColumnWidths(6)
End Sub

Sub SetColumnWidths_12()
Call SetColumnWidths(12)
End Sub

Sub SetColumnWidths(w As Double)
Application.ScreenUpdating = False
Columns("A:Z").ColumnWidth = w
Application.ScreenUpdating = True
End Sub

Sub SetEachColumnWidth()
Application.ScreenUpdating = False
Columns("A").ColumnWidth = 2
Columns("B").ColumnWidth = 4
Columns("C").ColumnWidth = 6
Columns("D").ColumnWidth = 8
Columns("E").ColumnWidth = 10
Columns("F").ColumnWidth = 12
Columns("G").ColumnWidth = 14
Columns("H:IV").ColumnWidth = 0
Application.ScreenUpdating = True
End Sub

Albertob said:
I want to permantely fix the width of columns in a table so that everytime
Click to expand...
I refresh the table, the columns do not resize themselves automatically...
 
Top