Ошибка при закрытии макроса с диаграммой

[Титёф]

Здравствуйте. Я только начал изучать 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. Имя диаграммы проверил и менял. Оно верное. Ошибка возникает только при закрытии программы. Сам макрос работает. Все функции выполняются. В чём может быть проблема?
Заранее спс.
Прикрепляю файлик с макросом.

[VictorM]

Не буду утверждать, но похоже, что при закрытии книги срабатывает событие Change в ComboBox-ах.
В любом случае, запускается макрос Диаграмма.
вставил первой строкой в Sub Диаграмма() On Error Resume Next - все работает и закрывается