Fejl i makro der automatisk lukker Excel-fil

Svært at sige uden at se koden.

Private Sub Workbook_Open()


    Range("AK2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    ChDir "C:\Users\sam\Downloads"
        ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\sam\Downloads\Timerapportering_values.xlsb", FileFormat:=xlExcel12 _
        , CreateBackup:=False
        Application.Wait (Now + TimeValue("00:00:05"))
        Application.DisplayAlerts = False
        Application.Quit
End Sub

Test