Sub VinzannaTest()
'
' VinzannaTest Macro
' This is our first macro
'
' Keyboard Shortcut: Ctrl+Shift+K
'
    ActiveCell.FormulaR1C1 = "Hey Ya'll!"
    Range("A2").Select
End Sub
Sub MyFormat()
'
' MyFormat Macro
' Exercise: Format text & Ensure Column Width is appropriate
'
' Keyboard Shortcut: Ctrl+Shift+T
'
  
    With Selection.Font
        .Name = "Chiller"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .Color = -6279056
        .TintAndShade = 0
    End With
    Selection.Font.Bold = True
    Selection.Columns.AutoFit
End Sub