Printing ONLY worksheets with data

[mailrail]

I have a multiple page workbook. To save paper and toner, I want the ability to print only those worksheets that contain data (data is based on, and filled in from, a master sheet at the front of the workbook). I tried to use this macro:

End If
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
If Not IsEmpty(wks.Range("A4")) Then
wks.PrintOut
End If
Next
Set wks = Nothing
End Sub

That macro works the way it's supposed to but the problem is this: I’m using A4 in each sheet as the reference point for whether the sheet prints or not. Because I have a formula in A4, the macro is reading it as "something in A4". I really need to print the sheet if there is a RESULT in A4, not just a formula. Is there a way? Also, I want to be able to automatically print the Master page (which does NOT have anything in A4, btw...)

[Hood]

Try this

Please Login or Register  to view this content.

[mailrail]

YES! That solved my problem. Thanks!