Wenn ich so ein Problem habe, löse ich das gern über die Aufzeichnung eines Makros, dass genau das tut, was ich erreichen will.
In deinem Fall erhält man dann folgendes:
Sub Makro1()
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Characters.Text = "Neuer Name"
With Selection.Characters(Start:=1, Length:=7).Font
.Name = "Calibri"
.FontStyle = "Standard"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
End Sub
Spannend sind davon nur die beiden blauen Zeilen.
Gruß Flupo