Delete chartobject without deleting ALL charts on sheet

Good day I have created various charts using the the following code and place them on to sheet 2. However, I want to delete 1 chart from the sheet and not all of them. How do I delete a specific chart?

Set cht = Sheets("Sheet2").ChartObjects.Add(Left:=2, Width:=580, Top:=774, Height:=355)

With cht

.Chart.SetSourceData Source:=Sheets("Sheet1").Range(SAIDIyearStart, SAIDITargetEnd), Title:="SAIDI CNC"

of course you then need to know the index of the chart you want to delete.

The easiest way is to set the name of the chart as you create it, then you can refernce it by name if you need to edit it later

Hi I have tried to do this but it doesnt seem to work. I have tried this:

Set cht = Sheets("Sheet2").ChartObjects.Add(Left:=2, Width:=580, Top:=774, Height:=355)

With cht

.Chart.SetSourceData Source:=Sheets("Sheet1").Range(SAIDIyearStart, SAIDITargetEnd)
.Chart.Name = "SAIDI CNC"

and then tried to delete it with the following code

On Error Resume Next
Sheets("Sheet2").ChartObjects("SAIDI CNC").Delete

But it doesnt seem to work

Yes it does give me an error

I put a msgbox after

[Code]
.Chart.Name = "SAIDI CNC"
MsgBox .Chart.Name
[\Code]

and it returns Sheet2 Chart 2289 in the msgbox and not SAIDI CNC, thus something must be wrong in the naming??

I used the following code and it seems to have worked.

.Chart.Parent.Name = "SAIDI CNC"