Thread: Objects Removal

So, here's the issue:

In the insert menu item, I wanted to choose an Adobe Acrobat Document (within the "object" option). However, I accidentally clicked on "Apods01 Control". Yet, now I can't remove it. I can not select it, delete, or even find it anywhere... It's very annoying, and I can not seem to find anything on it, to explain how to remove it, or what I have to do to select it.

Regards,
Apelcius

The following is an adaptation of code from shg and JBeaucaire

Sub ObjectFindRemove()

    Dim Wks As Worksheet
    Dim Obj As Object

    Set Wks = Worksheets("Sheet1")
    For Each Obj In Wks.OLEObjects
        Obj.Select
        If MsgBox(Title:="Whee!", _
                  Prompt:="Delete """ & Obj.Name & """?", _
                  Buttons:=vbYesNo) = vbYes Then
            Obj.Delete
            DoEvents
        End If
    Next Obj

End Sub