Custom print macro

[BOXMAN100]

We have an Excel workbook that has 30 tabs in it. Depending on certai
conditions, we will not need to print every worksheet each time w
print. Need to define a macro that will look in a certain cell in eac
worksheet to determine if - it's "Y" go to the next worksheet, or i
it's "N", hide that worksheet. After the last worksheet, we will prin
entire workbook. After print, unhide all worksheets.

Thank you

 

[Tom Ogilvy]

for each sh in thisworkbook.Worksheets
if sh.Range("A1") = "N" then
sh.Visible = xlSheetHidden
end if
Next
ThisWorkbook.Printout
for each sh in thisworkbook.Worksheets
sh.Visible = xlSheetVisible
Next

 

[BOXMAN100]

Thanks Tom!

That worked great