I have a wage bill with 500 or so employees on it.
To simplify things, did I add a small photo of each worker next to his details.

With so many photos on the sheet is it quite large for emailing, and therfore did I record a macro to select and deleat all the photos.
Once the macro is run, does it do so without any error massages, and I can see the screen updating, but all the photos are still there!

So, post up a smaller sample of your sheet with your macro in it, I'll take a look at it.

Or... try this short macro on for size:

Code:

---

Sub DeleteAllPictures()
Dim DrObj, Pic
Set DrObj = ActiveSheet.DrawingObjects

    For Each Pic In DrObj
        If Left(Pic.Name, 7) = "Picture" Then Pic.Delete
    Next
End Sub

---

A small example. No macro added as it shows very little. Thank you.

Did you try the macro above, yet?

You know, always start with the workbook, I say, people always leave out key details like "My workbook is protected".

Hehe, here, one line of code added to make it runnable on a locked sheet:

Code:

---

Sub DeleteAllPictures()
Dim DrObj, Pic
Set DrObj = ActiveSheet.DrawingObjects
ActiveSheet.Protect UserInterfaceOnly:=True
    For Each Pic In DrObj
        If Left(Pic.Name, 7) = "Picture" Then Pic.Delete
    Next
End Sub

---

Most imprsesive!
Thanks JB.

Now out of the blue is the macro giving me the following error message:"Run time error 1004
Unable to get the Name property of the picture class."

Do you have any idea, because I have been looking and cannot find the cause.

Sheet is not protcted.
Thanks.

So what's different? Are you still using Excel 2003? Can you post an example of the misbehaving workbook with you current macro in it?

Moved up to Excel 2007 some time back, but did not have any problem until now. Post to follow, very difficult to get the file to fit the max allowable bites.

Where is the attachment icon!

You'll have to use the GO ADVANCED icon first.

Do not have a advance icon either!
Anyhow, I have used Special-Objects and then "Objects.Delete", works well.

Code:

---

ActiveSheet.DrawingObjects.Select
    ActiveSheet.DrawingObjects.Delete

---

Still can not see the advanced icon. Weird.