try something like this
Option Explicit
Private Sub workbook_open()
Application.ScreenUpdating = False
With Worksheets("SUMMARY")
.Columns("A").ColumnWidth = 10
.Columns("B").ColumnWidth = 16
.Columns("C").ColumnWidth = 16
.Columns("D").ColumnWidth = 16
.Columns("E").ColumnWidth = 8
.Columns("F").ColumnWidth = 12
End With
Call standardcwidth("CMF")
End Sub
Private Sub standardcwidth(a As String)
With Worksheets(a)
.Columns("A").ColumnWidth = 20.71
.Columns("B").ColumnWidth = 9.43
.Columns("C").ColumnWidth = 1.29
.Columns("D").ColumnWidth = 8
.Columns("E").ColumnWidth = 17.71
.Columns("I").ColumnWidth = 10.43
.Columns("J").ColumnWidth = 11.29
.Columns("K").ColumnWidth = 6
.Columns("R").ColumnWidth = 10.43
.Columns("S").ColumnWidth = 11.29
.Columns("T").ColumnWidth = 6
.Columns("U").ColumnWidth = 10.43
.Columns("V").ColumnWidth = 11.29
.Columns("W").ColumnWidth = 6
End With
End Sub