try
Sub ShapesCut()
For Each s In ActiveSheet.Shapes
s.Cut
Next
End Sub

--
Don Guillett
SalesAid Software

"widman" wrote in message
...
I get reports exported to Excel from a program written with Access, but
they
come over with dozens of lines where the pages were formated to look
pretty.
I can click on the lines and cut, but have to do it over and over.
How can I remove ALL objects on a page, leaving only the text and numbers?