Widen first column to display text
Sub RigidFormattingProcedure() ActiveSheet.Range("A:A").EntireColumn.AutoFit End Sub