Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Add & format totals

Sub RigidFormattingProcedure()      ActiveSheet.Range("N7:N15").Formula = "=SUM(RC[-12]:RC[-1])"      ActiveSheet.Range("N7:N15").Font.Bold = True      ActiveSheet.Range("B16:N16").Formula = "=SUM(R[-9]C:R[-1]C)"      ActiveSheet.Range("B16:N16").Font.Bold = True  End Sub     ' Format data range  Sub RigidFormattingProcedure()      ActiveSheet.Range("B7:N16").NumberFormat = "#,##0"  End Sub