excel fit colums to with vba code example

Example: vba column autofit

Worksheets("Sheet1").Columns("A:I").AutoFit