Hi, I've been working on this code for quite some time now.
I have seen it work most of the time but its very glitchy and produces a runtime error then closes all my excel windows.

What I wanted to accomplish is to copy multiple sheets into a new workbook then save the file or send an email.

The error starts at the line where i've declared the sheets (array) to be copied. 

Private Sub Export_Client()
    'exports the relevant sheets for the report
    Dim wb As Workbook
    Dim NewWb As Workbook
     
     'Create Excel sheet link
    Set wb = ActiveWorkbook
    Sheets(Array("Ratings Summary Voice", "Ratings Summary Email", "Device Tally", "Agent Summary Email", "Agent Summary Voice")).Copy
    Set NewWb = ActiveWorkbook
    'Change the Link to your desired location.
     NewWb.SaveAs "C:\Documents and Settings\Book1.xlsx"
    Application.Run ("Email_Client")
    NewWb.Close
    End Sub