AutoFit All Columns on All Sheets

Attribute VB_Name = "AutoFitAllColumns"
Option Explicit

Public Sub AutoFitAllColumns()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Cells.EntireColumn.AutoFit
    Next ws
    MsgBox "Columns auto-fit on " & ThisWorkbook.Worksheets.Count & " sheet(s).", vbInformation
End Sub