Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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