Сослаться на листы (без отслеживания) - VBA

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

Подскажите пожалуйста, есть диаграммы на листе 2 и 3 как на них сослаться, без последующего перехода на листы? - Activate, Active надо заменить но не знаю на что есть код, который ссылается с отслеживанием

Sub название_диаграмм()
 
    Sheet("Лист1").ChartObjects("Диаграмма 4").Activate
    ActiveChart.ChartTitle.Text = "название диаграммы1"
    Sheet("Лист2").ChartObjects("Диаграмма 1").Activate
    ActiveChart.ChartTitle.Text = "название диаграммы2"
 
End Sub

Решение задачи: «Сослаться на листы (без отслеживания)»

textual
                            Листинг программы 
                        
                            Sheet("Лист1").ChartObjects("Диаграмма 4").ChartTitle.Text = "название диаграммы1"