How do I remove all buttons in VBA on a sheet?

Sub delete_controls_within_range()

Dim sh As Shape
Dim rng As Range

Set rng = Range("A1:D10")

    For Each sh In ActiveSheet.Shapes
      If sh.Type = msoFormControl Then
        If sh.FormControlType = xlButtonControl _
        And Not Intersect(sh.TopLeftCell, rng) Is Nothing Then sh.Delete
      End If
    Next sh
End Sub

Sub delete_controls_within_range()
'Erik Van Geit
'050517 0053
'msoOLEControlObjects
'''CheckBox
'''TextBox
'''CommandButton
'''OptionButton
'''ListBox
'''ComboBox
'''ToggleButton
'''SpinButton
'''ScrollBar
'''Label
'''Image

'msoFormControl
'''xlButtonControl
'''xlCheckBox
'''xlDropDown
'''xlEditBox
'''xlGroupBox
'''xlLabel
'''xlListBox
'''xlOptionButton
'''xlScrollBar
'''xlSpinner

Dim sh As Shape
Dim rng As Range

Set rng = Range("A1:D10")

    For Each sh In ActiveSheet.Shapes
      If sh.Type = msoOLEControlObject Then
        If TypeName(sh.OLEFormat.Object.Object) = "ComboBox" _
        And Not Intersect(sh.TopLeftCell, rng) Is Nothing Then sh.Delete
      End If
      If sh.Type = msoFormControl Then
        If sh.FormControlType = xlCheckBox _
        And Not Intersect(sh.TopLeftCell, rng) Is Nothing Then sh.Delete
      End If
    Next sh
End Sub