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

Welcome to the forum.

Try this (untested):

Sub printenN()
    Const sRoot     As String = "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\"
    Dim sFile       As String
    Dim v           As Variant

    On Error Resume Next
    Application.EnableEvents = False
    
    For Each v In Array("20\20", "21\21", "22\22", "50\50", "51\51", "52\52", "53\53", "54\54", "55\55")
        sFile = v & Format(Date - 1, "_dd-mm-yyyy") & "E.xls"
        Debug.Print sRoot & sFile
        Workbooks.Open sRoot & sFile
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        ActiveWorkbook.Close False
    Next v
    
    Application.EnableEvents = True
End Sub

I have no convenient way to test ...

Sub printenN()
    Const sRoot     As String = "N:\Oper_CT_PlantMgt\Shared\Hartslagborden met SI\Archief HBB\"
    Dim sFile       As String
    Dim v           As Variant

    Application.EnableEvents = False

    For Each v In Array("20\20", "21\21", "22\22", "50\50", "51\51", "52\52", "53\53", "54\54", "55\55")
        sFile = v & Format(Date - 1, "_dd-mm-yyyy") & "E.xls"
        Debug.Print sRoot & sFile
        If Len(Dir(sRoot & sFile)) Then
            Workbooks.Open sRoot & sFile
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
            ActiveWorkbook.Close False
        End If
    Next v

    Application.EnableEvents = True
End Sub