VBA code to remove checkboxes Excel

//VBA code to remove checkboxes from copy paste formatting super useful in Excel
Sub sbRemoveCheckboxesinActiveSheet_OLEControls()

For Each shp In ActiveSheet.Shapes
If shp.Type = msoOLEControlObject Then
        If shp.OLEFormat.Object.OLEType = 2 Then shp.Delete
    End If
Next
End Sub