Access VisualBasic Script

Sub auto()
    ActiveSheet.UsedRange.Columns.AutoFit
End Sub