I need sheets 3-29, so I wrote it like this after your suggestion:
Sub Column_Widths()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Sheets(Array("Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8", "Sheet9", "Sheet10", "Sheet11", "Sheet12", "Sheet13"...