No question here, just a procedure for the archive.

Search criteria: Autofit auto fit width of all columns in an worksheets work sheets
active workbook justify width all column in work book automatically
programmatically macro to resize column width

Sub ColumnsAutoFitAllSheets()
'AutoFit all column widths in all worksheets in workbook

Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Select
Cells.EntireColumn.AutoFit
Range("A1").Select
Next
Application.ScreenUpdating = True


End Sub