Your application or website rely on your database to deliver information about products and services to your customers. You can’t afford to have your database lose performance, lose availability or become unresponsive – even for just a few minutes.
Sub Title_And_Total_Group() Range("A4").Select Selection.Copy Range("C3").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Font.Bold = True With Selection.Font .Name = "Calibri" .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontMinor End With Range("F8").Select ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)" Range("F8").Select Selection.Copy Range("F8:M8").Select ActiveSheet.Paste Selection.Font.Bold = True Selection.End(xlToLeft).Select Range("A11").Select End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.