geht nicht ohne "SELECT" ??!!??

Private Sub prntJan_Click()
ActiveSheet.Shapes("Monatsname").Select
Selection.Characters.Text = "Januar"
End Sub

Versuche ich's OHNE SELECT, .............

Private Sub prntJan_Click()
ActiveSheet.Shapes("Monatsname").Characters.Text = "Januar"
End Sub

... kommt die Fehlermeldung: "Objekt unterstützt diese Eingenschaft oder Methode nicht."
Und auch so geht's nicht:

Private Sub prntJan_Click()
With ActiveSheet.Shapes("Monatsname")
.Characters.Text = "Januar"
End With
End Sub

Geht das tatsächlich nur MIT select? Oder mach ich was falsch? Ich bitte um Eure Hilfe!
Danke schon mal im Voraus
Grüße
Franz