Chart Objects

Hello! I was wondering if there is (there must be) a way to delete a chart in a spreadsheet only if it has a certain title? There will be other charts on the spreadsheets with different titles.

Is there a simple way to do this using Chart Objects?

Thank you!

However, it is still deleting the charts. I have three different buttons to make three different histograms. If I click one button, I'd like it to only delete the old histogram from that button....

Actually, no it isn't deleting them! It is moving them all to the same locations on top each other?

Here is my code, the code is basically the same from the two other buttons but with different chart locations.

Private Sub getHistogramHVBD_Click()

Dim binStartHVBD As Double
Dim binEndHVBD As Double
Dim binWidthHVBD
Dim numberOfBinHVBD As Double
Dim i As Double
Dim hvbdRange As Range
Dim binRange As Range

Dim cht As ChartObject

binStartHVBD = Cells(3, 9).Value
binEndHVBD = Cells(4, 9).Value
binWidthHVBD = Cells(5, 9).Value
numberOfBinsHVBD = ((binEndHVBD - binStartHVBD) / binWidthHVBD) + 11

Cells(11, 9) = binStartHVBD

For i = 12 To numberOfBinsHVBD

    Cells(i, 9) = Cells(i - 1, 9).Value + binWidthHVBD

Next i



Set hvbdRange = Range("B11", Range("B" & Rows.Count).End(xlUp))
Set binRange = Range("I11", Cells(numberOfBinsHVBD, 9))

Columns(27).ClearContents
Columns(28).ClearContents

Dim outputRange As Range
Set outputRange = ActiveSheet.Range("AA1")



For Each cht In ActiveSheet.ChartObjects
    If cht.Chart.HasTitle And cht.Chart.ChartTitle.Text = "Hard Breakdown Voltage Histogram" Then
       cht.Delete
End If
Next cht

    
   
   

Application.Run "ATPVBAEN.XLAM!Histogram", hvbdRange, outputRange, binRange, False, False, True, _
False

 ActiveChart.ChartTitle.Text = "X"
    ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "X"

ActiveSheet.ChartObjects.Left = Cells(1, 14).Left
ActiveSheet.ChartObjects.Top = Cells(1, 14).Top
ActiveSheet.ChartObjects.Height = Range("N1:N22").Height
ActiveSheet.ChartObjects.Width = Range("N1:Y1").Width



End Sub