Макрос VBA для создания диаграммы работает на одной электронной таблице Excel, но не на другой

Question

Привет, у меня проблема с моим кодом. По какой-то причине он отлично работает на одном документе, но на другом документе он не работает. Ниже мой код:

Sub Graph2()

'   Graphs for monitoring

    Dim my_range As Range, t, co As Shape '<edit

    t = Selection.Cells(1, 1).Value & " - " & ActiveSheet.Name

    Dim OldSheet As Worksheet
    Set OldSheet = ActiveSheet

    Set my_range = Union(Selection, ActiveSheet.Range("A:A"))

    Set co = ActiveSheet.Shapes.AddChart2(201, xlLine) 'add a ChartObject

    With co.Chart
        .FullSeriesCollection(1).ChartType = xlXYScatter
        .FullSeriesCollection(1).AxisGroup = 1
        .FullSeriesCollection(2).ChartType = xlLine
        .FullSeriesCollection(2).AxisGroup = 1
        .SetSourceData Source:=my_range
        'highlight final dot of data
        .FullSeriesCollection(1).Points(.FullSeriesCollection(1).Points.Count - 1).ApplyDataLabels Type:=xlShowValue
        .HasTitle = True
        .ChartTitle.Text = t
        'ResolveSeriesnames co.Chart
        .Location Where:=xlLocationAsObject, Name:="Graphs"

    End With

    OldSheet.Activate
End Sub

На рабочем документе графики выглядят так:

На нерабочих документ графики выглядят как:

Есть идеи, почему это так? Макрос находится в совершенно отдельном файле для обоих этих документов