Surpress a Run-Time Error in Excel with a Dialog Box

Sorry you've lost me there.

You are using the same criteria for all sheets and putting the name of each sheet that has A607 populated in an array.

I think that checking what N is might be an idea.

If it's 0 then no sheets have A607 populated.

In fact I'd change the loop to this.

    For I = 1 To N

        With ActiveWorkbook.Worksheets(Arr(I))
            If .Visible = xlSheetHidden Then
                .Visible = xlSheetVisible
                .PrintOut
                .Visible = xlSheetHidden
            Else
                .PrintOut
            End If
        End With

    Next I

If N is 0 then the code within the loop will never execute as you can go from 1 to 0.