Ошибка при присвоении названия заголовку диаграммы

[Maryy]

Добрый день, подскажите в чем может быть проблема.
Время от времени вылетает ошибка "Объект не имеет заголовка" при попытке присвоить заголовку диаграммы название , при чем, если тут же продолжить выполнение программы (нажать F5), то программа продолжает свое исполнение и ошибка не возникает.
Данный участок кода находится в функции, которая может вызываться из 2х других функций, так вот при вызове из одной функции такая ошибка не возникает, а при вызове из другой появляется. Хотя никакой связи между данными функциями нет. Так же нет никаких условий или чего то подобного перед данной строчкой кода, в которых было бы возможно, чтобы диаграмма становилась не активной. Грубо говоря при любом раскладе происходит 1.добавление 2.очищение диаграммы 3.выбор типа кривой и 4.присвоение имени заголовку диаграммы и ее осям

 Sheets(sheetName).Select
    Dim numbGr As Integer 'кол-во кривых на диаграмме
    numbGr = 0
        
    ActiveSheet.Shapes.AddChart.Select
    diagramName = Mid(ActiveChart.Name, Len(ActiveSheet.Name) + 2)
    
    'удаление всех кривых с диаграммы
    For Each currentCollection In ActiveChart.SeriesCollection
        currentCollection.Delete
    Next currentCollection
    
    ActiveChart.ChartType = xlLineMarkers
    'Подписи на диаграмме
    ActiveChart.ChartWizard Title:=" " & Sheets(sheetName).Cells(20 * (numbMod - 1) + 1, 1).Value & " (" & Sheets(sheetName).Cells(20 * (numbMod - 1) + 1, 2).Value & ")", CategoryTitle:="Месяц", ValueTitle:=Sheets(sheetName).Cells(20 * (numbMod - 1) + 1, 2).Value
   ....

Соответственно, ошибка возникает на последней строчке.

Если на данной строчке поставить breakpoint и продолжить выполнение программы, ошибка не возникает, так же если перед данной строчкой вставить функцию задержки

Application.Wait Time:=Now + TimeSerial(0, 0, 1)

, ошибка так же не появится, но это конечно довольно сомнительное решение, хотелось бы все таки разобраться в чем дело и чем может быть вызвана такая проблема

[vefer]

Можно попробовать сначала выбрать данные для диаграммы, а потом присвоить название, может в этом проблема. На пустой диаграмме название не отображается.

[AndVGri]

Попробуйте

ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Caption = " " & Sheets(sheetName).Cells(20 * (numbMod - 1) + 1, 1).Value & " (" & Sheets(sheetName).Cells(20 * (numbMod - 1) + 1, 2).Value & ")", CategoryTitle:="Месяц", ValueTitle:=Sheets(sheetName).Cells(20 * (numbMod - 1) + 1, 2).Value