Scott,

No need to group:

Dim mySh As Worksheet

For Each mySh In ActiveWorkbook.Worksheets
If mySh.Range("F24").Value < 0 Then mySh.Printout
Next mySh

HTH,
Bernie
MS Excel MVP


"ScooterJB" wrote in message
ups.com...
Hey all, I'm kinda new here but I was wondering if anyone has any tips
to get me started on this...

I have a workbook with 39 worksheets, all structured the same where I'd
enter a list with costs and a total formula at the bottom of each,
entered and printed every week. If the total at the bottom of the
sheets (all in F24 to make thigs that much easier for me) is zero,
meaning there are no entries on that sheet for the week, I simply don't
print that sheet.

Obviously, I want to create a module that I can apply to a button that
will automatically look at all 39 sheets and select, group together,
the ones where the total does not equal zero. Basically, the sheets
that have entries on them, group them and print them. (Keeping in mind
the totals could be negarive values as well.)

I haven't got anything yet as I mentioned I'm quite new with learning
all of this but would love a place to start and get better from.

Thanx all in advance for your help...

Scott