That works better.

Thanks again.

"Ron de Bruin" wrote in message
...
Then use this Mike

Sub Shapes1()
'Delete all Objects except Comments
On Error Resume Next
ActiveSheet.DrawingObjects.Visible = True
ActiveSheet.DrawingObjects.Delete
On Error GoTo 0
End Sub


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


"The Other Mike" wrote in message
...
No.

"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