Don't do that Mike
Read about the bugs when you do that on the webpage

--
Regards Ron de Bruin
http://www.rondebruin.nl


"The Other Mike" wrote in message ...
I took out the If statement and just left myshape.delete

Thanks so much for your help.

Mike

"Ron de Bruin" wrote in message ...
Do you have other controls on that sheet Mike that you want to keep ?
Forms controls or controltoolbox controls ?

--
Regards Ron de Bruin
http://www.rondebruin.nl


"The Other Mike" wrote in message ...
It worked on a picture I've inserted into the execl spreadsheet but not on what I pasted into the spreadsheet. I'm pasting from
the internet and it puts the little Java Icon on the spreadsheet. I click on the Icon and it says it's a picture. Maybe it's a
different type?

"Ron de Bruin" wrote in message ...
Try this one

Sub Shapes2()
'Loop through the Shapes collection and use the Type number of the control
Dim myshape As Shape
For Each myshape In ActiveSheet.Shapes

' pictures
If myshape.Type = 13 Then myshape.Delete
' You can also use myshape.Visible = False

Next myshape
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"The Other Mike" wrote in message ...
Only pictures.
Thanks


"Ron de Bruin" wrote in message ...
Hi Mike

All objects or only Pictures ?

See this page for example code
http://www.rondebruin.nl/controlsobjectsworksheet.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"The Other Mike" wrote in message ...
How can I select all the picture objects in my excel file and delete them? I've tried highlighting the column but that
doesn't work.

Thanks Mike