Part of my macro creates a button. I got the code by recording a macro of me making a button. Now when I run it I get an error at .themecolor = 2. I copied the code directly so I don't know why it won't work. Below is the code. Any ideas? Thanks.

ActiveSheet.Buttons.Add(741, 15.75, 51, 36).Select
    Selection.OnAction = "Button1_Click"
    Selection.Characters.Text = "Create Graphs"
    With Selection.Characters(Start:=1, Length:=13).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = 2
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With