Excel VisualBasic Script

Sub RigidFormattingProcedure() 
    ActiveSheet.Range("A:A").Font.Bold = True 
End Sub