Yes, this is how I have it now. In the ['Your code here] section I have it
print. I need it to add it to the [Sheets(Array("Sheet1", "Sheet2")).Select]
in Gary's Student's reply. Then I can print the whole workbook at once -
which is what I want done.

So how do I combine Otto's and Gary's Student's help?


"Otto Moehrbach" wrote:

Dawn
Something like this will loop through all the sheets in the workbook. I
put in an IF statement to check some value in each sheet and if the criteria
is met, your code will run. Post back if you need more. HTH Otto
Sub DoEachSht()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Range("C10").Value 10 Then
'Your code here
End If
Next ws
End Sub
"Shawn777" wrote in message
...
Thanks, that helps. But I don't want to tell the macro which sheets to
select, I want the marco to figure that out itself. Even the number of
sheet
to print will change from job to job. Some could print just one of the
ten
and others will print all ten. So can I get one name to equal
("Sheet1,","Sheet2")? Or is there a better way of doing this?

"Gary''s Student" wrote:

You can select several sheets at once with something like:

Sheets(Array("Sheet1", "Sheet2")).Select
--
Gary''s Student - gsnu200761


"Shawn777" wrote:

I have a spreadsheet with about ten different tabs. I am writing a
macro
that will print all of these tabs that have data in them. I can write
an if
statement asking if the total doesn't equal 0 then print. When I do
this
each tab is printed out one at a time. This won't alow the page
numbers in
the footer to work and in our office printing these tabs separately can
cause
problem at the printer - since many people are using the printer at
once.

What I don't know how to write is to "select a workgroup" (select
multiple
tabs at once) of tabs that totals don't equal zero.