Try this:
Sub DeleteChart()
Dim ch As ChartObject
For Each cell In Range("DeleteRange")
For Each ch In ActiveSheet.ChartObjects
If ch.TopLeftCell.Address = UCase(cell.Value) Then ch.Delete
Next
Next
End Sub
In the workbook set up a range named "DeleteRange" and enter the location of the cells of the upper left corner of the charts to be deleted. The cell location must be enter in absolute method (includes $) such as: $A$1.