Never seen a problem with that. Try just running the shape portion and see
if you can figure out what these a

Sub testObj()

For Each shp In ActiveSheet.Shapes
Debug.Print shp.Name & " Name: " & shp.TopLeftCell.Address _
& " Type: " & TypeName(shp)
Next
End Sub

--
Regards,
Tom Ogilvy


"goss " wrote in message
...
Thanks Tom

Here's the procudure as pasted:
========================

Sub testObj()


For Each obj In ActiveSheet.OLEObjects
MsgBox obj.Name & " at " & obj.TopLeftCell.Address & _
TypeName(obj.Object)
Next
For Each shp In ActiveSheet.Shapes
Debug.Print shp.Name & " type: " & TypeName(shp)
Next


End Sub
==============================
Came back with:
Run-time error: 1004
Unable to get the Object property of the OLEobject class


---
Message posted from http://www.ExcelForum.com/