Josef Ehrensberger & Ute ....Buttons löschen - 2

Sub loescheButton(spalte As Integer)
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.FormControlType = 0 Then
If shp.TopLeftCell.Column = spalte Then shp.Delete
End If
Next
End Sub

Sub test()
loescheButton 20  'Spalte in der sich die zu löschenden Buttons befinden
End Sub