VBA Datei Name

Sub AVx_Daten()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open Filename:= _
"xxxxxxx.xlsm"
ActiveSheet.Range("$A$1:$W$1636").AutoFilter Field:=22, Criteria1:="lila"
ActiveSheet.Range("$A$1:$W$1636").AutoFilter Field:=9, Criteria1:= _
"=beauftragt", Operator:=xlOr, Criteria2:="=freigegeben"
Range("A22:W22").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("yyyyyyyyyy.xlsm").Activate
Sheets("offene Aufträge").Visible = True
Sheets("offene Aufträge").Select
Range("A5").Select
ActiveSheet.Paste
Windows("Datenbankliste_AVx.xlsm").Activate
ActiveWorkbook.Close False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub