Make text in first column bold
Sub RigidFormattingProcedure() ActiveSheet.Range("A:A").Font.Bold = True End Sub