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
|