Page Setup: Fit To Columns - VBA

Sub AutoFitColumns()

Dim sht As Worksheet

'AutoFit One Column

ThisWorkbook.Worksheets("Sheet1").Columns("O:O").EntireColumn.AutoFit

'AutoFit Multiple Columns

ThisWorkbook.Worksheets("Sheet1").Range("I:I,L:L").EntireColumn.AutoFit 'Columns I & L

ThisWorkbook.Worksheets("Sheet1").Range("I:L").EntireColumn.AutoFit 'Columns I to L

'AutoFit All Columns on Worksheet

ThisWorkbook.Worksheets("Sheet1").Cells.EntireColumn.AutoFit

'AutoFit Every Worksheet Column in a Workbook

For Each sht In ThisWorkbook.Worksheets

sht.Cells.EntireColumn.AutoFit

Next sht

'AutoFit Every Worksheet Column in a Workbook (Visible Columns Only)

On Error Resume Next

For Each sht In ThisWorkbook.Worksheets

sht.Cells.SpecialCells(xlCellTypeVisible).EntireColumn.AutoFit

Next sht

On Error GoTo 0

End Sub