Sub ColResizer()
Dim ColNum As Integer
With Application
.ScreenUpdating = False
For ColNum = 1 To 72
Select Case ColNum
Case 1, 25, 21, 60, 70
Columns(ColNum).ColumnWidth = 15
Case 3, 15, 20, 40, 69
Columns(ColNum).ColumnWidth = 25
Case 4, 16, 21, 41 To 59, 62 To 68
Columns(ColNum).ColumnWidth = 45
Case Else
Columns(ColNum).ColumnWidth = 5
End Select
Next
.ScreenUpdating = True
End With
End Sub