Do not print

B

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?
 
R

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
 
Top