Sub LargCol()
Dim C As String
Dim L As Single
Dim i As Byte
For i = 1 To 14
C = Choose(i, 'A', 'B:E', 'F', 'G', 'H', 'I', 'J', 'K', 'L:W', 'X:Y', 'Z:AK', 'AL:AO', 'AP:AU', 'AV')
L = Choose(i, 14.5, 2.5, 12, 15, 21, 13.5, 10, 13, 13.5, 14, 15.5, 13, 12, 30)
Columns(C).ColumnWidth = L
Next i
End Sub