a couple

Sub ShapesCut()
For Each s In ActiveSheet.Shapes
s.Cut
Next
End Sub
'or
Sub shapescut1() 'Tom Ogilvy
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub

--
Don Guillett
SalesAid Software

"coastal" wrote in message
...
I have an html table that I copy pasted to excel. But it has a lot extra
objects like picutes and form drop down fields. (I tried paste special
text
but the column spacing is lost and numbers run into each other no telling
where one cell begins and the other ends).

Is there a way to delete all objects quickly / with one action?
--
--coastal