title: Excel VBA "This object has no title"
body: <p>I have a sub here, which returns me the <code>"object has no title"</code> error. I am at a loss here. I really don't understand this error. </p>
  
  <p>Funny thing is that it worked before without any error messages, but now it only returns the object has not title, even though all charts have titles set to true.</p>
  
  <pre><code>Sub embedchart_secondsup()
  
   Dim totalfailureChart As Chart, iChart As Chart, jChart As Chart
  
   Dim totalfailureRange As Range, iRange As Range, jRange As Range, destinationSheet As String
  
  
  destinationSheet = ActiveSheet.Name
  
   'expected value of Total failure
  
  Set totalfailureRange = Range("'Binomial Sheet'!$A$56:$B$62")
      Set totalfailureChart = ActiveSheet.Shapes.AddChart(xlColumnClustered, Left:=ActiveSheet.Range("J14").Left, Top:=ActiveSheet.Range("J14").Top, Width:=ActiveSheet.Range("J14:O14").Width, Height:=ActiveSheet.Range("J14:O24").Height).Chart
      Set totalfailureChart = totalfailureChart.Location(Where:=xlLocationAsObject, Name:=destinationSheet)
  
      totalfailureChart.SetSourceData Source:=totalfailureRange
      totalfailureChart.FullSeriesCollection(1).Delete
      totalfailureChart.FullSeriesCollection(1).Delete
      totalfailureChart.SeriesCollection.NewSeries
      totalfailureChart.FullSeriesCollection(1).Values = "='Binomial Sheet'!$B$56:$B$62"
      totalfailureChart.FullSeriesCollection(1).XValues = "='Binomial Sheet'!$A$56:$A$62"
      totalfailureChart.HasLegend = False
      totalfailureChart.HasTitle = True
      totalfailureChart.ChartTitle.Text = "Total Failure"
  
  'expected value of i % (first supplier) failure
  
  Set iRange = Range("'Binomial Sheet'!$E$56:$F$62")
      Set iChart = ActiveSheet.Shapes.AddChart(xlColumnClustered, Left:=ActiveSheet.Range("F2").Left, Top:=ActiveSheet.Range("F2").Top, Width:=ActiveSheet.Range("F2:K2").Width, Height:=ActiveSheet.Range("F2:K12").Height).Chart
      Set iChart = iChart.Location(Where:=xlLocationAsObject, Name:=destinationSheet)
  
      iChart.SetSourceData Source:=iRange
      iChart.FullSeriesCollection(1).Delete
      iChart.FullSeriesCollection(1).Delete
      iChart.SeriesCollection.NewSeries
      iChart.FullSeriesCollection(1).Values = "='Binomial Sheet'!$F$56:$F$62"
      iChart.FullSeriesCollection(1).XValues = "='Binomial Sheet'!$E$56:$E$62"
      iChart.HasLegend = False
      iChart.HasTitle = True
      iChart.ChartTitle.Text = "i % Failure"
  
  'expected value of j % (second supplier) failure
  
      Set jRange = Range("'Binomial Sheet'!$I$56:$J$62")
      Set jChart = ActiveSheet.Shapes.AddChart(xlColumnClustered, Left:=ActiveSheet.Range("M2").Left, Top:=ActiveSheet.Range("M2").Top, Width:=ActiveSheet.Range("M2:R2").Width, Height:=ActiveSheet.Range("M2:R12").Height).Chart
      Set jChart = jChart.Location(Where:=xlLocationAsObject, Name:=destinationSheet)
  
      jChart.SetSourceData Source:=iRange
      jChart.FullSeriesCollection(1).Delete
      jChart.FullSeriesCollection(1).Delete
      jChart.SeriesCollection.NewSeries
      jChart.FullSeriesCollection(1).Values = "='Binomial Sheet'!$J$56:$J$62"
      jChart.FullSeriesCollection(1).XValues = "='Binomial Sheet'!$I$56:$I$62"
      jChart.HasLegend = False
      jChart.HasTitle = True
      jChart.ChartTitle.Text ="j % Failure"
  </code></pre>
  
  <p>End Sub</p>
  
  <p>Edit: I just noticed that the sub can as long as I do not alter anything in the cells (7,4) and (8,4) even though I have no reference to these cells</p>