Sub delete_controls()

in spreadsheet/Sheet1.vb [795:804]

• 6 lines of code
• 3 McCabe index (conditional complexity)

Sub delete_controls()
    Dim item As Object
    
    For Each item In ActiveSheet.Shapes
        
        If item.Type = msoFormControl Then
            item.Delete
        End If
    Next item
End Sub