Filterkriterium aus anderer Datei holen

Sub TT()
Dim LR As Long, i As Long, RNG As Range
On Error GoTo Fehler
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Set RNG = Columns("A:H")
LR = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
For i = LR To 1 Step -1
If Cells(i, 1) Like "XYZ_P1*" Then
Intersect(Rows(i), RNG).Delete xlUp
End If
Next
Fehler:
'*** Rücksetzen
With Application
.EnableEvents = True
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub