Sub setColumnWidths()
' Macro1 Macro
    ActiveWindow.Zoom = 85
    Range("A:A,E:E,G:G,J:J,M:M,N:N,Q:Q,S:S").Select
      Selection.ColumnWidth = 7.89
    Range("A1").Select
    Range("F:F,I:I,K:K,L:L,P:P").Select
      Selection.ColumnWidth = 6.89
     Range("A1").Select
    Columns("B:B").Select
        Selection.ColumnWidth = 4.89
    Columns("C:C").Select
        Selection.ColumnWidth = 4.5
    Columns("D:D").Select
        Selection.ColumnWidth = 5.89
    Columns("H:H").Select
        Selection.ColumnWidth = 9.89
     Range("A1").Select
    Range("O:O,R:R").Select
        Selection.ColumnWidth = 8.89    ' The default
     Range("A1").Select
    Application.Goto reference:=Range("A1"), Scroll:=True
End Sub
'