Copy Sheets - Not working

[jwb1012]

Hello, I am using the following code to copy multiple worksheets into a new workbook. Unfortunately, the worksheets aren't copying over. I am wondering if creating the new workbook is changing my "Activeworkbook" which is referenced on line 6. Any thoughts on how to correct this?

Also, I am hoping to delete these worksheets from my initial workbook after they have been copied into the new worksheet.

Sub Export_BOE_Sheets()
    Dim Sh As Worksheet, wb As Workbook, txt As String
    Set wb = Workbooks.Add
     wb.Sheets(1).Name = "BOE Cover Sheet"
        On Error Resume Next
            For Each Sh In ActiveWorkbook.Sheets
                If Left(Sh.Name, 9) = "Labor BOE" Then
                    Sh.Copy After:=wb.Sheets(wb.Sheets.Count)
                End If
            Next Sh
        On Error GoTo 0
    txt = InputBox("Enter the Date and/or Version number", "BASIS OF ESTIMATES")
    wb.SaveAs ThisWorkbook.Sheets("Home").Range("$F$9").Value & "_" & txt & ".xlsx"
    MsgBox "The BOE Export file generation is complete."
End Sub

 

[dfsobral]

When you add a new workbook it will became the ActiveWorkbook
before you add it you should create a set variable as the ActiveWorkbook and only then add a new one so you can activate the workbook you need
For instance

Dim aWb As Workbook
Dim wb As Workbook


Set aWb = ActiveWorkbook
Set wb = Workbook.Add


aWb.Activate
'your code


End Sub

if you will delete the initial worksheets why not to move then instead of copy

also, not sure if your error handler will work as you intended