Fehler auf anderen Rechnern

Sub Performance()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim Path As String
Dim Jahr As Integer
Dim Quartal As String
Dim Monat As Integer
Dim Monat2 As String
Dim Name As String
Dim Name2 As String
Dim datei As String
Dim Ende As Integer
Path = Worksheets("Admin").Range("F8")
Quartal = Worksheets("Admin").Range("F25")
Name = Worksheets("Admin").Range("F9")
Name2 = Worksheets("Admin").Range("F14")
ThisWorkbook.Worksheets("GMNscaled 5%").Activate
If ThisWorkbook.Worksheets("Admin").Range("H2")  "" Then
ThisWorkbook.Worksheets("GMNscaled 5%").Range("B2:D2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("B5").Select
ActiveSheet.Paste
ThisWorkbook.Worksheets("GMNscaled 5%").Range("B2:D4").ClearContents
Else
End If
For i = 2 To 4
Jahr = Year(Worksheets("GMNscaled 5%").Range("A" & i))
Monat = Month(Worksheets("GMNscaled 5%").Range("A" & i))
Monat2 = Format(Monat, "00")
datei = "Factor Attribution Report_" & Name2 & "_" & Jahr & "-" & Monat2
Workbooks.Open (Path & "\" & Name & "\" & datei & ".xls")
ThisWorkbook.Worksheets("GMNscaled 5%").Range("B" & i) = Workbooks(datei).Worksheets("Portfolio  _
Summary").Range("C9")
ThisWorkbook.Worksheets("GMNscaled 5%").Range("C" & i) = Workbooks(datei).Worksheets("Portfolio  _
Summary").Range("C10")
ThisWorkbook.Worksheets("GMNscaled 5%").Range("D" & i) = Workbooks(datei).Worksheets("Portfolio  _
Summary").Range("C11")
Workbooks(datei).Close
Next
ThisWorkbook.Worksheets("Admin").Range("H2").Value = Now
Else
End If
ThisWorkbook.Worksheets("Admin").Activate
ThisWorkbook.Worksheets("Admin").Range("A1").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub