Копирование диаграмм в новую книгу

[juliaowen]

Здравствуйте, уважаемые.

Помогите, пожалуйста, в решении следующей проблемы:

Имеется файл "Эталон_физ-мех талые урезанн". На первом листе наверху справа кнопка "Собрать механику".
При нажатии на кнопку макрос создает новый файл "механика талые" и копирует область "A82:O134" из текущего файла с каждого листа в файл "механика талые" на вновь создаваемые в нем листы.

Sub copirovat_mehaniku_v_novii_fail()
Application.ScreenUpdating = False

Dim list_name As String
Dim opensBook As Workbook

 DOR = ActiveWorkbook.Path 
  
 stroka = DOR
 

 Set opensBook = Workbooks.Add
 ActiveWorkbook.SaveAs stroka & "\механика талые.xls"
 
  For Each sh In ThisWorkbook.Worksheets
    sh.Activate
    Range("A82:O134").Select
    Selection.Copy
    Windows("механика талые.xls").Activate
    ActiveWorkbook.Sheets.Add Before:=Worksheets("Лист1")
    ActiveSheet.Name = sh.Name
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    'ActiveSheet.ChartObjects("Диагр. 1").Activate
    'ActiveChart.SetSourceData Source:=ActiveSheet.Range("M22:O26"), PlotBy:= _
        xlColumns
    ActiveWindow.View = xlPageBreakPreview
    ActiveSheet.PageSetup.PrintArea = "$A$1:$L$53"
    ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
    ActiveWindow.SmallScroll Down:=9
mm1:
 Next sh

ActiveWorkbook.Save

Application.ScreenUpdating = True

End Sub

Проблема в том, что в копируемой области есть две диаграммы, которые тоже надо скопировать. НО при копировании их исходные данные ссылаются на таблички в старом файле "Эталон_физ-мех талые урезанн", а нужно, чтобы исходные данные ссылались на лист, в который скопирована эта диаграмма.
Не получается у меня "объяснить" диаграммам, что данные теперь надо брать из нового места.

[juliaowen]

Я и сама продолжаю пытаться найти решение.

Основной вопрос в том, как определить какие элементы (их названия ChartObjects("Диагр. 1")) появляются на том листе, куда копируются данные.
То есть, как понять, к чему обращаться?