установить заголовок диаграммы, получить ошибку "объект больше не действителен"
.HasTitle = True With .ChartTitle .Text = ActiveWorkbook.ActiveSheet.Cells(5, 8) .Font.Name = "Tahoma" .Font.Size = 10 .Left = 358 .Top = 236 End With