Ошибка при закрытии макроса с диаграммой "Object variable or With block variable not set" - VBA

Формулировка задачи:

Здравствуйте. Я только начал изучать VBA поэтому не закидывайте помидорами В общем, делал простенький макрос: с помощью кнопок ActiveX смена исходных данных диаграммы и изменения цвета заголовка. При закрытии MS Excel выдаёт ошибку: "run-time error '91': Object variable or With block variable not set." Код выглядит так:

Sub Диаграмма()
 
entrprze = Cells(18, "G").Value
qrow = Cells(17, "G").Value + entrprze
  With ActiveSheet.ChartObjects("Диаграмма 1").Chart
    .SetSourceData Source:=Range("C3:N3,C" & qrow & ":N" & qrow)
    .ChartTitle.Text = "Отчёт за " & Cells(qrow, "B").Value & " квартал " & Cells(2 + entrprze, "B").Value
    .ChartStyle = entrprze + 16
    .ChartTitle.Font.ColorIndex = Cells(entrprze + 2, "B").Font.ColorIndex
               
  End With
End Sub

При запуске debug отсылает на строку With ActiveSheet.ChartObjects("Диаграмма 1").Chart. Имя диаграммы проверил и менял. Оно верное. Ошибка возникает только при закрытии программы. Сам макрос работает. Все функции выполняются. В чём может быть проблема? Заранее спс.

Решение задачи: «Ошибка при закрытии макроса с диаграммой "Object variable or With block variable not set"»

textual
                            Листинг программы 
                        
                            On Error Resume Next