VBA: Åbne og lukke dokumeneter

Hej,

Jeg er igang med at lave en excel løsning hvor i jeg har brug for at åbne kopier noget, sortere det og så lukke det dokument hvor jeg tog værdierne fra igen, måske ikke lige i den rækkefølge (måske en del af problemmet). Er kommet frem med følgende kode stump.

Private Sub Workbook_Open()

    Sheets("Data").Select 'vælger data worksheetet
    Range("B3").Select 'og sætter sig start punktet for data serien
    Workbooks.Open Filename:="C:\Data.xlsx" 'åbner data filen
    Range("A2").Select 'går til start punketet for data filen
    Range(Selection, Selection.End(xlDown)).Select 'markere indtil sidste række
    Range(Selection, Selection.End(xlToRight)).Select 'markere alle kolunner
   
    Selection.Copy 'kopier
    Windows("Work.xlsm").Activate 'går til worksheetet
    ActiveSheet.Paste 'indsætter det kopieret
    Sheets("Work").Select 'går til Work worksheetet
 
   
    Range("b7:u5000").Select 'udfører et filter på dataen i den nye data så den kun viser for den ønskede konsulent
    Selection.AutoFilter
    Selection.AutoFilter Field:=3, Criteria1:=Range("C2").Value
    Windows("Data.xlsx").Activate ' går tilbage til data filen
    ActiveWorkbook.Save 'gemmer den
    ActiveWorkbook.Close ' lukker den
    Application.CutCopyMode = False 'Tømmer cache
End Sub

Men får en fejl når jeg prøver at skifte til Windows(Data.xlsx) igen for at gemme og lukke..

Nogen forslag til hvad dette skyldes ?