does this help?

Sub findPicturename()
msn = "Picture " & ActiveSheet.Shapes.Count
MsgBox msn
ActiveSheet.Shapes(msn).Cut 'Select
End Sub

--
Don Guillett
SalesAid Software

"GTJames" wrote in message
...
My VBA routine copies an embedded chart from a worksheet to another
worksheet
as a picture (CopyPicture). This works fine but I want to clear the
picture
from the destination worksheet before copying anouther picture to it, so
the
pictures don't build up. I can't seem to find a way to activate the
picture
via VBA so that it can be deleted.