Old topic but if someone are looking for a similar solution....
This macro will remove object based on user input
Sub DeleteObject
set s=ActiveDocument.Sheets("Main")
name = ActiveDocument.GetApplication.InputBox("Enter name of the object?")
Objects = ActiveDocument.ActiveSheet.GetSheetObjects
For j = lBound(Objects) To uBound(Objects)
set obj = Objects(j)
IF obj.GetCaption.Name.v = name Then
s.SheetObjects(j).Close
else
end if
next
End Sub
