Sub DeleteShapes() 
     '-------------------------------------------------------
          ' Function:    Delete all shapes from a worksheet
     ' Constraints: Don't delete autofilter and Data
     '               Validation arrows
     '-------------------------------------------------------
    Dim shp As Shape 
    Dim testStr As String 
    Dim OkToDelete As Boolean 
     
    For Each shp In ActiveSheet.Shapes 
        OkToDelete = True 
        testStr = "" 
        On Error Resume Next 
        testStr = shp.TopLeftCell.Address 
        On Error Goto 0 
        If shp.Type = msoFormControl Then 
            If shp.FormControlType = xlDropDown Then 
                If testStr = "" Then 
                     'keep it
                    OkToDelete = False 
                End If 
            End If 
        End If 
        If OkToDelete Then 
            shp.Delete 
        End If 
    Next shp 
     
End Sub