More Macros

Not really related to general ledgers, trial balances, or even financial statements, but I still find these macros handy on a daily basis. I’ll post a few more later…

This one gives you today’s date (hard coded).

Sub ItsToday()
 ActiveCell.FormulaR1C1 = "=TODAY()"
 Selection.Copy
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
 Application.CutCopyMode = False
End Sub

Fast Format Calibri size 8 (I use for trial balance details, and other data)

Sub Format_Calibri_8()
 With Selection.Font
 .Name = "Calibri"
 .Size = 8
 .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ThemeColor = xlThemeColorLight1
 .TintAndShade = 0
 .ThemeFont = xlThemeFontMinor
 End With
End Sub

Fast Format Calibri size 10 (I use for presentable results)

Sub Format_Calibri_10()
 With Selection.Font
 .Name = "Calibri"
 .Size = 10
 .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ThemeColor = xlThemeColorLight1
 .TintAndShade = 0
 .ThemeFont = xlThemeFontMinor
 End With
End Sub