How do I save a WorkBook using only select cells macro

May I suggest deleting pictures before saving....i.e then the code in post 10 which I amended by adding below line will work.

ActiveSheet.Pictures.Delete