Excel VisualBasic Script

Sub RigidFormattingProcedure() 
    ActiveSheet.Range("A:A").EntireColumn.AutoFit 
End Sub