-2147319765 Automation Error

import info from the web and need to kill a bunch of formatting. when the sub below runs I get the following err msg. what am i missing here?

-2147319765
Automation error
Element not found.

Sub RemoveOLEObjects()

'On Error Resume Next

    ActiveSheet.OLEObjects.Delete
    
End Sub