error file cannot be found

Hello,

With this macro i print nine sheets. If there is one missing, excel gives a warning that the document cannot be found. I want excel to go ahead with the following document. Can somebody help me out please.

Sub printenN()

    ChDir "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\20"
    
    Application.EnableEvents = False
    Workbooks.Open Filename:= _
        "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\20\20_" & Format(Date - 1, "dd-mm-yyyy") & "E.xls" '_
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWorkbook.Close False
    
    ChDir "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\21"
    
    Application.EnableEvents = False
    Workbooks.Open Filename:= _
        "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\21\21_" & Format(Date - 1, "dd-mm-yyyy") & "E.xls" '_
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWorkbook.Close False
    
    ChDir "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\22"
    
    Application.EnableEvents = False
    Workbooks.Open Filename:= _
        "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\22\22_" & Format(Date-1, "dd-mm-yyyy") & "E.xls" '_
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWorkbook.Close False
    
    ChDir "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\50"
    
    Application.EnableEvents = False
    Workbooks.Open Filename:= _
        "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\50\50_" & Format(Date - 1, "dd-mm-yyyy") & "E.xls" '_
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWorkbook.Close False
    
    ChDir "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\51"
    
    Application.EnableEvents = False
    Workbooks.Open Filename:= _
        "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\51\51_" & Format(Date - 1, "dd-mm-yyyy") & "E.xls" '_
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWorkbook.Close False
    
    ChDir "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\52"
    
    Application.EnableEvents = False
    Workbooks.Open Filename:= _
        "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\52\52_" & Format(Date - 1, "dd-mm-yyyy") & "E.xls" '_
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWorkbook.Close False
    
    ChDir "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\53"
    
    Application.EnableEvents = False
    Workbooks.Open Filename:= _
        "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\53\53_" & Format(Date - 1, "dd-mm-yyyy") & "E.xls" '_
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWorkbook.Close False
    
    ChDir "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\54"
    
    Application.EnableEvents = False
    Workbooks.Open Filename:= _
        "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\54\54_" & Format(Date - 1, "dd-mm-yyyy") & "E.xls" '_
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWorkbook.Close False
    
    ChDir "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\55"
    
    Application.EnableEvents = False
    Workbooks.Open Filename:= _
        "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\55\55_" & Format(Date - 1, "dd-mm-yyyy") & "E.xls" '_
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWorkbook.Close False
    
End Sub

many thanx