Macro: Insert a Check Mark

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.

Once you add this macro all you will need to do is select the cell you want a check-mark in and run the macro (the macro will be named Checkmark).

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.

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s