Proper Way To Replace And Delete Embedded Object?

what I am doing is running a parameter query. Based on the users selection it pulls in and embeds a pdf file based on a link put into cell A1. The problem is when the user selects another file. My current process deletes all of the oleobjects on the page (because I couldnt figure out how to just delete this pdf embedded object as it is named differently each time it is pulled in) My current process worked fine up until I needed to add some controls (radio buttons) now when it loads the next file it deletes the radio buttons. Is there a way to name this embedded pdf file so that I can then delete only that object? or is there a fundamental better way to handle this?

below is the section in question

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("A1")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Dim wsh As Worksheet
For Each wsh In ActiveWorkbook.Worksheets
wsh.OLEObjects.Delete
Next wsh
ActiveCell.Offset(0, 0).Range("j1").Select
ActiveSheet.OLEObjects.Add(Filename:=Range("a1").Value, Link:= _
False, DisplayAsIcon:=False).Select