Jim,
Thanks for the reply. I added the macro and nothing happened when I ran it.
not sure what to do. Any other thoughts?

-
-CRM


"Jim Thomlinson" wrote:

Something like this should be close.

Sub PrintUsedSheets()
Dim wks As Worksheet

For Each wks In Worksheets
If wks.Range("B1").Value = Date Then wks.PrintOut
Next wks
End Sub

--
HTH...

Jim Thomlinson


"saltnsnails" wrote:

I have a workbook that contains about 60 timesheets on individual worksheets.
Not all of the worksheets have data filled in if a particular individial
does not work on that day. I print timesheets at the end of each day. What
I would like to do is run a macro that would print only the worksheets if the
date cell has the current date in it. The date cell is B1. I hope this
makes sense.
--
-CRM