How to refer to a Chart knowing its left upper corner?

[Andrew XJ]

Could you tell me how to refer to a Chart knowing where its left upper corner resides.
Current there are quite a few charts in a spreedsheet. I need to delete charts whose left corner reside in certain cells.

regards

[Ricky Morris]

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.

[Andrew XJ]

Thx! It really works