| Home |
| Search |
| Today's Posts |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Select sheets from an array for printing
Thanks Bob!
Works a treat "Bob Phillips" wrote: Dim Sheet As Worksheet Dim shStyle As Long 'will print sheet with a value 0 in C2 For Each Sheet In Sheets(Array("Sheet1", "Sheet3", "Sheet5", "Sheet7", "Sheet9")) If Sheet.Range("C2").Value 0 Then shStyle = Sheet.Visible Sheet.Visible = xlSheetVisible Sheet.PrintPreview Sheet.Visible = shStyle End If Next -- HTH RP (remove nothere from the email address if mailing direct) "bennyob" wrote in message ... I need Help!! I have a workbook with hidden sheets, I want to search the visible sheets for those with value greater than 0 in C2 then print them. Can someone show me where I am going wrong with this code? Tahnks Sub PrintSelectedSheets() 'will print sheet with a value 0 in C2 For Each Sheet In ThisArray.Sheets(Array("Sheet1", "Sheet3", "Sheet5", "Sheet7", "Sheet9")) Sheet.Activate If Range("C2").Value 0 Then ActiveSheet.PrintPreview End If Next End Sub |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Cells User Select Locked after upgrade to Excel 2002 | Excel Discussion (Misc queries) | |||
| how do you "select locked cells" w/o "select unlocked cells"? | Excel Discussion (Misc queries) | |||
| Conversion | Excel Worksheet Functions | |||
| Dynamic Formulas with Dynamic Ranges | Excel Worksheet Functions | |||
| VBA Import of text file & Array parsing of that data | Excel Discussion (Misc queries) | |||
Threaded Mode
