Автоматическое обновление легенды диаграммы excel

[Lama Under Cover]

Исходные данные:
- файл excel, в нем диаграмма, на ней отображена легенда;
- для автоматического обновления диаграммы при изменении рядов данных используется

Private Sub Worksheet_Activate()

Sheets("S*").Unprotect
Sheets("S*").EnableOutlining = False

ActiveSheet.ChartObjects("Диаграмма 1").Activate
    
ActiveChart.SeriesCollection(1).Values = "='S*'!$C$5:$SL$5"
ActiveChart.SeriesCollection(2).Values = "='S*'!$C$9:$SL$9"
       
        Sheets("S*").EnableOutlining = True
        Sheets("S*").Protect , _
        UserInterfaceOnly:=True, AllowSorting:=True, _
        AllowFiltering:=True, AllowFormattingRows:=True, _
        AllowFormattingColumns:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True
        
End Sub

Вопрос:

как сделать так, чтобы помимо работающего автоматического обновления диаграммы также автоматически (при активации листа) обновлялась и легенда?

[Aleksandr H.]

ActiveChart.SeriesCollection(1).Name = ActiveWorkbook.Sheets("S*").Range("F2").Text

сработает?

[Lama Under Cover]

Сообщение от Aleksandr H.

ActiveChart.SeriesCollection(1).Name = ActiveWorkbook.Sheets("S*").Range("F2").Text

сработает?

Работает как надо, спасибо за оперативную помощь!