Does this work for you? It is set to search in columns A:Z, but you should adjust it to fewer columns if your actual range is less so that it is more efficient (searching fewer cells)
Dim ws As Worksheet
Dim Target As Range
On Error Resume Next
For Each ws In Worksheets
Set Target = ws.Columns("A:Z").Find(What:="#N/A", After:=Cells(1, 1), LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not Target Is Nothing Then
Application.Goto Target
MsgBox "Cannot Print - an error was found"
Exit Sub
End If
Next ws
Bookmarks