This macro is helpful for footing (adding a column of numbers) trial balances, schedules, and reconciliations. It is common practice to put a check mark below the total to show that the column total is accurate. This macros will insert a red check mark in the active cell.
Assign this macro to a shortcut key to gain the full time-saving benefit (recommended shortcut: ctrl+shift+v).
Excel Macro Code:
Sub Checkmark() ActiveCell.FormulaR1C1 = "P" ActiveCell.Select With Selection.Font .Name = "Wingdings 2" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With Selection.Font.Bold = True With Selection.Font .Color = -16776961 .TintAndShade = 0 End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub
View the full listing of macros.