Delete all shapes

Delete all shapes from active worksheet.
Author: michael@excelexperts.co.uk

Sub DeleteShapes()

    Dim Shp As Shape

    Call TurnOff

    For Each Shp In ActiveSheet.Shapes
        Shp.Delete
    Next Shp

    Call TurnOn

End Sub