Make column headings bold
Sub RigidFormattingProcedure() ActiveSheet.Range("6:6").Font.Bold = True End Sub