Delete all pictures

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

Sub DeleteAllPictures()

    Call TurnOff

    With ActiveSheet
        .Pictures.Delete
    End With

    Call TurnOn

End Sub