not printing pages

Hide the rows you don't want printed.

Assumes you have formulas that return "" if no data available.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim c As Range
Dim rng As Range
Set rng = Range(Range("A1"), Cells(Rows.Count, 1).End(xlUp))
With rng
Do
Set c = .Find("", LookIn:=xlValues, lookat:=xlWhole, _
MatchCase:=False)
If c Is Nothing Then Exit Do
c.EntireRow.Hidden = True
Loop
End With
End Sub


Gord Dibben MS Excel MVP

On Wed, 13 Aug 2008 06:38:00 -0700, Barry <Barry.DeleteThis@discussions.microsoft.com>
wrote:

>I have a 15 page spread sheet that is linked to another sheet that fills in
>the values, if there are no values for one of the 15 pages can I program
>excel to not print the page(s) with no values?