Excel VisualBasic Script

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