Is there a code to delete general autoshapes without considereing the name? Right now I have 
    ActiveSheet.Shapes.Range(Array("Picture 5351")).Select
Selection.Delete
but the problem with that is it only deletes that specific picture according to its number/name. When I get rid of the picture number in the code it won't delete the rest of the other pictures because of the picture number/name. So is there a code to delete general shapes disregarding the specific name of the picture