i have this piece of code:

Code:
With Sourcewb
        Set TheActiveWindow = ActiveWindow
        Set TempWindow = .NewWindow
        .Sheets(Array("ReadMe", "MailSheet(s)")).Copy
    End With
instead to fill the array with a fixed name of sheet i need to fill the array with all sheets into work book but exclude "sheet1" and "sheet7".