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