This macro will delete all shapes in the active workbook:

Sub DelAllShapes()
Dim Shp As Shape, WS As Worksheet
On Error Resume Next
'Check every worksheet in the workbook
For Each WS In ActiveWorkbook.Worksheets
WS.Activate
'Delete any other shapes on the sheet.
For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next Shp
Next WS
End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Hope this helps,

Hutch

"seedman" wrote:

How can I get rid of a company logo that I imported into my spreadsheet
several years ago and has grown to over 45000 duplications (layered). It has
grown from repeated copy and paste functions while using the spreadsheet. I'm
using Excel 97 and can't find a delete tab. Thanks.