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
Bookmarks