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