Do not print

[Breck]

I have a 7 sheet workbook. I would like not to print a
worksheet if a specific cell is blank. How can this be
accomplished?

 

[Ron de Bruin]

Try this macro Breck

Sub test()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If sh.Range("a1").Value <> "" Then sh.PrintOut
Next
End Sub