Delete a chart using a macro

[JRS]

Hi,

I need some code for a macro that says:

"If a chart exists within the range H8:P38 then delete it"

I need it to do this without having to specify what the chart name is (as the chart name may change) and if there is no chart in that range then it should just do nothing (i.e. not throw up an error or a bug)

Cheers
JRS

 

[RoryA]

You could use something like this:

Dim objChart as ChartObject
for each objChart in Activesheet.chartobjects
if not intersect(objchart.topleftcell, activesheet.Range("H8:P38")) is nothing then objchart.delete
next objchart