Changing font size in a command box

[bdt]

Afternoon all,
I have a a piece of code that adds a button (form control) to a worksheet that runs a macro. How do I increase the font size on the button?
I have code ;

ActiveSheet.Buttons.add(75, 150, 150, 100).Select
Selection.Name = "New Button"
Selection.OnAction = "Button3_Click"
ActiveSheet.Shapes("New Button").Select
Selection.Characters.Text = "SAVE CHANGES"

I assume I need to add something like CommandButton2.Font.Size = 24 but I can't make it work.
Still struggling to get my head round VBA, must be getting too old!!

Many thanks

 

[Skyybot]

Try this

ActiveSheet.Buttons.Add(75,150,150,100).Select
With Selection
.Name = "New Button"
.OnAction = "Button3_Click"
.Text = "SAVE CHANGES"
.Font.Size = 24
End With

 

[bdt]

Many thanks, works perfectly.
Just an after thought, how do you make the font on the button bold?

 

[Skyybot]

ActiveSheet.Buttons.Add(75,150,150,100).Select
With Selection
.Name = "New Button"
.OnAction = "Button3_Click"
.Text = "SAVE CHANGES"
.Font.Size = 24
.Font.Bold = True
End With

 

[bdt]

It's ok, just occurred to me.

.Font.Bold = True