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

Basically when I use this code to print it works great if there is a sheet to print, if there isn't a sheet to print I get a run time error, which isn't necessarily a big deal but for esthetic reasons I would like to have a dialog box come up that says "Sorry, nothing to print" if there is nothing to print.

Sub PrintAllTransfer()
    Dim Sh As Worksheet
    Dim Arr() As String
    Dim N As Integer
    N = 0
    Application.ScreenUpdating = False
    For Each Sh In ActiveWorkbook.Worksheets
        If Sh.Range("A607").Value <> "" Then
            N = N + 1
            ReDim Preserve Arr(1 To N)
            Arr(N) = Sh.Name
        End If
    Next
    With ActiveWorkbook
        For N = 1 To UBound(Arr)
If ActiveWorkbook.Worksheets(Arr(N)).Visible = xlSheetHidden Then
ActiveWorkbook.Worksheets(Arr(N)).Visible = xlSheetVisible
ActiveWorkbook.Worksheets(Arr(N)).PrintOut
ActiveWorkbook.Worksheets(Arr(N)).Visible = xlSheetHidden
Else
ActiveWorkbook.Worksheets(Arr(N)).PrintOut
End If
Next N

    End With

Originally Posted by Norie

When won't there be a sheet to print?

There can be up to 50 different (types of) pages in the workbook to print, dont want to check through entire workbook to see what there is to print, so have a pag with buttons that can print each type of page from one tab.

Right above the print command put

on error goto NoSheet

then at the bottom above end sub put

NoSheet:
msgbox "Nothing to Print"
exit sub

Originally Posted by Norie

So there's no criteria/logic that can be used in the code to determine whether or not there are sheets to print.

PS The code you posted loops through all the worksheets already.

The criteria for this particular sheet is that if there is a value in cell A607 then it will print, if there is no value in A607 then it will not print.

Thanks Norie