Sub Макрос1()
'
    Dim ws As Worksheet
    Dim myShap As Shape
    For Each ws In ActiveWorkbook.Worksheets
    For Each myShap In ws.Shapes
        If myShap.Name Like "*Box*" Or myShap.Name Like "*Combo*" Or myShap.Name Like "*DropDown*" Then myShap.Delete
    Next myShap
    Next ws
'
End Sub