Dont delete all shapes

Hi all

Using the below code deletes all shapes in my current sheet. However, I don't want to delete "Picture 6". So what would be the syntax?

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