Перенос диаграмм с одного листа на другой - VBA

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

Подскажите пожалуйста, как перенести диаграммы с одного листа на другой, сохраняя при этом порядок их формирования (столбцы/строки), т.е. как перенести диаграммы с Лист1 на Лист2, при этом диаграммы сформированы на Лист1 (где они связаны с данными), надо перенести диаграммы без связки с Лист1, т.е. диаграммы перенеслись на Лист2 и сформировались согласно данным Лист2 (данные в том же порядке, просто разные)?

Решение задачи: «Перенос диаграмм с одного листа на другой»

textual
                            Листинг программы 
                        

                            Private Sub Test()
    Dim iChart As ChartObject, iSerie As Series
    Dim list1$, list2$: list1 = "Лист1": list2 = "Лист2"
    
    Application.ScreenUpdating = False
    For Each iChart In Worksheets(list1).ChartObjects
        For Each iSerie In iChart.Chart.SeriesCollection
            iSerie.Formula = Replace(iSerie.Formula, list1, list2)
        Next
        iChart.Chart.Location xlLocationAsObject, list2
    Next
    Application.ScreenUpdating = True
End Sub
                        