Samenvoegen "ActiveSheet.Shapes.Range(Array("Button XYZ")).Delete" opdrachten

[trainers]

Hoe kan ik de volgende opdrachten samenvoegen?

        ActiveSheet.Shapes.Range(Array("List Box 30")).Delete
        ActiveSheet.Shapes.Range(Array("Button 2")).Delete
        ActiveSheet.Shapes.Range(Array("Button 3")).Delete
        ActiveSheet.Shapes.Range(Array("Button 12")).Delete
        ActiveSheet.Shapes.Range(Array("Button 15")).Delete
        ActiveSheet.Shapes.Range(Array("Button 20")).Delete
        ActiveSheet.Shapes.Range(Array("Button 22")).Delete
        ActiveSheet.Shapes.Range(Array("Button 33")).Delete
        ActiveSheet.Shapes.Range(Array("Button 28")).Delete
        ActiveSheet.Shapes.Range(Array("Button 29")).Delete
        ActiveSheet.Shapes.Range(Array("Button 31")).Delete

Bij voorbaat dank.

Groeten,
Trainers

 

[HSV]

Alle buttonnamen binnen die array schrijven.

array("button1","button2","button30")

 

[trainers]

Thank You. Is logisch.
Groeten,
Trainers.