wie kann ich einem commandbutton einen namen zuordnen? ich habe folgendes:
Sub com_bu()
ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.CommandButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=500, Top:=45.75, _
Width:=113.25, Height:=24).Select
Selection.Cut
Sheets("Diagramm_Fragen").Select
ActiveChart.ChartArea.Select
ActiveChart.Paste
With Selection
.Placement = xlMove
.PrintObject = False
End With
End Sub