I'd change it to this

Option Explicit

Sub FixDecreeAbstractColumnWidths(Optional control As IRibbonControl)
Dim aWS As Excel.Worksheet
'
' FixColumnWidths Macro
' Resizes Abstract Column widths to standard format size
Set aWS = ActiveSheet

'ActiveWindow.Zoom = 100
Application.ScreenUpdating = False
aWS.Columns("A:A").ColumnWidth = 8
aWS.Columns("B:B").ColumnWidth = 2
aWS.Columns("C:C").ColumnWidth = 44
aWS.Columns("D:E").ColumnWidth = 2
aWS.Columns("F:F").ColumnWidth = 44
aWS.Columns("G:G").ColumnWidth = 2
aWS.Columns("H:H").ColumnWidth = 8
aWS.Columns("I:J").ColumnWidth = 8
aWS.Columns("K:K").ColumnWidth = 9
aWS.Columns("L:L").ColumnWidth = 8
aWS.Columns("M:M").ColumnWidth = 8
aWS.Columns("N:N").ColumnWidth = 9
aWS.Columns("O:P").ColumnWidth = 14
aWS.Columns("Q").ColumnWidth = 2
aWS.Columns("R:R").ColumnWidth = 36
aWS.Columns("S:S").ColumnWidth = 2
Application.ScreenUpdating = True
ActiveWindow.Zoom = 70


End Sub
"owlnevada" wrote:

I have files that originated with the last four versions of Excel with
Windows XP and created on different screens and resolutions. Sometimes when
I run certain macros that set a default width or row height on all the used
cells, the view comes back distorted in one dimension. Rerunning the macro
doesn't reset it and once changed after running the macros, I've not run
across a way to fix it to my standard template values. Not sure, but it seems
like it must have somethng to do with the original files which have been
updated many times.

Does anyone have any clues as to what is going on?

The code is pretty simple. Here is the one for setting the columns:

Sub FixDecreeAbstractColumnWidths(Optional control As IRibbonControl)
'
' FixColumnWidths Macro
' Resizes Abstract Column widths to standard format size

ActiveWindow.Zoom = 100
Columns("A:A").Select
Selection.ColumnWidth = 8
Columns("B:B").Select
Selection.ColumnWidth = 2
Columns("C:C").Select
Selection.ColumnWidth = 44
Columns("D:E").Select
Selection.ColumnWidth = 2
Columns("F:F").Select
Selection.ColumnWidth = 44
Columns("G:G").Select
Selection.ColumnWidth = 2
Columns("H:H").Select
Selection.ColumnWidth = 8
Columns("I:J").Select
Selection.ColumnWidth = 8
Columns("K:K").Select
Selection.ColumnWidth = 9
Columns("L:L").Select
Selection.ColumnWidth = 8
Columns("M:M").Select
Selection.ColumnWidth = 8
Columns("N:N").Select
Selection.ColumnWidth = 9
Columns("O:P").Select
Selection.ColumnWidth = 14
Columns("Q").Select
Selection.ColumnWidth = 2
Columns("R:R").Select
Selection.ColumnWidth = 36
Columns("S:S").Select
Selection.ColumnWidth = 2

ActiveWindow.Zoom = 70
Range("N2").Select

End Sub