From: joemeshuggah on 11 Feb 2010 13:49 i am using the following piece of code to prevent the printing of a few specified tabs in a workbook, however, it does not appear to be working correctly. where am i going wrong? using excel 2003 For Each Sheet In ThisWorkbook If Sheet.Name <> "TestData" And Sheet.Name <> "ResultDetail" And Sheet.Name <> "ControlDetail" Then Sheet.PrintOut End If Next
From: Mike H on 11 Feb 2010 14:08 Hi, Try it this way Dim WS As Worksheet S = "ResultDetail,ControlDetail,ResultDetail" V = Split(S, ",") For Each WS In ThisWorkbook.Worksheets If IsError(Application.Match(CStr(WS.name), V, 0)) Then WS.PrintOut End If Next -- Mike When competing hypotheses are otherwise equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. "joemeshuggah" wrote: > i am using the following piece of code to prevent the printing of a few > specified tabs in a workbook, however, it does not appear to be working > correctly. where am i going wrong? using excel 2003 > > For Each Sheet In ThisWorkbook > If Sheet.Name <> "TestData" And Sheet.Name <> "ResultDetail" And > Sheet.Name <> "ControlDetail" Then > Sheet.PrintOut > End If > Next >
|
Pages: 1 Prev: change categories to values vice versa Next: Copy Method Failure |