Schaltflächen umbenennen

ih weiß von Euch, das ich Command_Buttons anhand von Zelleninhalten umbenennen kann und zwar mit folgendem Code:

Private Sub CommandButton3_Click()
zeit_anpassen1
End Sub
'
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("E50").Address Or Target.Address = Range("E51").Address Then _
ActiveSheet.CommandButton3.Caption = Format(Range("E50").Value, "HH:MM") & " - " & _
Format(Range("E51").Value, "HH:MM")
End Sub

Kann ich aber auch Schaltflächen damit umbenennen???

Danke tobi