PS

You may find it easier to get straight at OLEObjects & drawingobjects in
general if you don't use punctuation like "." in the name unless as it seems
you need to. Punctuation is much less restricted with the shapes collection.

Peter T

"Peter T" <peter_t@discussions wrote in message
...

"John" wrote in message
ps.com...

Peter T wrote:
Have a go with this -

For i = 1 To ActiveSheet.OLEObjects.Count
If ActiveSheet.OLEObjects(i).name = sName Then
ActiveSheet.OLEObjects(i).Delete
'Exit For
End If
Next

Regards
Peter T

This works. I would still like to be able to reference these objects
via name, but this works for my purposes.

Thanks.

Dim shp As Shape, oOLE As OLEObject

Set shp = ActiveSheet.Shapes(sName)

' if you want to delete
'shp.Delete

'or work with the OLE
Set oOLE = shp.DrawingObject

Regards,
Peter T