Help with Prevent worksheet print based on Cell Value

[Randy11]

The following code when placed in a simple 3 worksheet workbook works perfect. Unless there is a value greater than 0 in A1 the worksheet will not print. Am trying to use in a more complicated workbook and is not working? Am wanting to apply this logic to Sheet38, Sheet39, Sheet40, Sheet41, Sheet18 without success.

Code could either be added to the code that selects and prints these 5 sheets or as note below. Assistance appreciated.....

Private Sub Workbook_BeforePrint(Cancel As Boolean)

With Sheet1
If Not .Range("A1").Value > 0 Then
Cancel = True
End If
End With

End Sub

 

[SkipVought]

hi,

Assuming that this is to apply to ALL worksheets...

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    dim ws as worksheet
    for each ws in worksheets
        If Not ws.Range("A1").Value > 0 Then
            Cancel = True
        End If
    Next
End Sub

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[Randy11]

This is still not working. Value in A1 is placed there by formula, does this make a difference? Nothing prints when 3 os the sheets meet the criteria to print. i.e. a value over 0 showing in A1?

 

[SkipVought]

Seems as if this is to apply to only the active sheet? YES???

Private Sub Workbook_BeforePrint(Cancel As Boolean)
        If Not ActiveSheet.Range("A1").Value > 0 Then
            Cancel = True
        End If
End Sub

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}