Метод или элемент данных не найден (ошибка компиляции)

Question

У меня проблема с VBA, которую я недавно написал, и я понятия не имею, почему возникает ошибка.Проблема в том, что когда я запускаю код, он работает отлично.Когда один из моих коллег запускает код, он также прекрасно работает.Но есть некоторые старые коллеги, и когда они пытаются запустить код, появляется сообщение об ошибке, упомянутое выше.

Как вы думаете, это появляется из-за их старого оборудования или что бы вы предложили?Вот код:

    Sub Datenauswerten()

    Application.ScreenUpdating = False

    Sheets("Auswertung").Visible = True

    Sheets("Auswertung").Select
    Range("A1:D100").Select
    Selection.ClearContents
    Sheets("Pivot").Select
    Range("B6").Select
    ActiveWorkbook.RefreshAll
    Range("D7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Selection.Copy
    Sheets("Auswertung").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, 
    SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Auswertung").Range("b1").Value = "Kategorie"
    Sheets("Auswertung").Range("c1").Value = "Störung"
    Sheets("Auswertung").Range("d1").Value = "Dauer [h]"
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("D1").Select
    ActiveWorkbook.Worksheets("Auswertung").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Auswertung").Sort.SortFields.Add 
    Key:=Range("D1"), _
    SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Auswertung").Sort
    .SetRange Range("A2:D100")
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
    End With
    Range("A5:D100").Select
   Selection.ClearContents
   Range("A:A").Select
   Selection.ClearContents
   Columns("D:D").Select
   Selection.NumberFormat = "0.00"
   Sheets("Auswertung").Range("b1").Value = "Kategorie"
   Sheets("Auswertung").Range("c1").Value = "Störung"
   Sheets("Auswertung").Range("d1").Value = "Dauer [h]"
   Sheets("Auswertung").Range("A1").Select
   Sheets("Grafik").Select
   ActiveSheet.ChartObjects("Chart 1").Activate
   ActiveChart.FullSeriesCollection(1).Values = "=Auswertung!$D$2:$D$4"
   ActiveChart.FullSeriesCollection(1).XValues = "=Auswertung!$B$2:$C$4"
   Sheets("Auswertung").Select
   Range("A50").Select

   Sheets("Auswertung").Visible = False
   Application.ScreenUpdating = True
   End Sub

Большое спасибо за вашу помощь!