Print visible sheets excluding certain ones

**amelio** · 03-09-2011, 11:05 AM

I have the following macro and would like to add some addtional sheets into the macro so they are also omitted from printing.

 Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Visible = xlSheetVisible And _
        ws.Name <> "Sheet1" Then ws.PrintOut
    Next ws
End Sub

I struggling to make the macro work when I add "sheet2" "sheet3" etc on top of "sheet1".

Thanks
Ben

**JBeaucaire** · 03-09-2011, 11:31 AM

Why is it a struggle? You already see the syntax for testing sheet names and you see the syntax for using AND to add tests. Keep doing that.

Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets
        If ws.Visible = xlSheetVisible And _
        ws.Name <> "Sheet1" And _
        ws.Name <> "Sheet2" And _
        ws.Name <> "Sheet3" Then ws.PrintOut
    Next ws
End Sub