Code to copy same sheet from several workbooks to one not working

[newmystie]

Hello everybody!

I am using the following code to copy the same sheet from several workbooks into a new workbook.

Sub CopySameSheetFrmWbs()
    Dim wbOpen As Workbook
    Dim wbNew As Workbook
     'Change Path
    Const strPath As String = "E:\Proforma Term 1 2017\"
    Dim strExtension As String
     
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    On Error Resume Next
     
    ChDir strPath
     'Change extension
    strExtension = Dir("*.xlsm")
     
    Set wbNew = Workbooks.Add
     'Change Path, Name and File Format
    wbNew.SaveAs Filename:="E:\Proforma Term 1 2017\AllProformaC", FileFormat:=xlWorkbookNormal
     
    Do While strExtension <> ""
        Set wbOpen = Workbooks.Open(strPath & strExtension)
         
        With wbOpen
            
            .Sheets("ProformaC Term 1").Copy After:=wbNew.Sheets(wbNew.Sheets.Count)
            wbNew.Sheets(wbNew.Sheets.Count).Name = wbNew.Sheets(wbNew.Sheets.Count).Cells(5, 4)
            .Close SaveChanges:=False
        End With
         
        strExtension = Dir
    Loop
     
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    On Error GoTo 0
End Sub

However, the only thing it's doing is create the file AllProformaC. That's all. It's not copying the sheets at all.

Any help please?

Thank you.

Same post here.

https://www.mrexcel.com/forum/excel-...ml#post4803354

http://www.ozgrid.com/forum/showthre...633#post790633

[cytop]

Your post does not comply with Rule 8 of our Forum RULES. Do not crosspost your question on multiple forums without including links here to the other threads on other forums.

Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.

Expect cross-posted questions without a link to be closed and a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).

[newmystie]

Sorry for that. I cross post because sometimes I don't get a solution in one forum. Added the links.

[cytop]

The other forums ask the same. Please at least have the courtesy to let others know you have posted this on multiple forums. The link in my first reply explains the reasons why you are asked to do this.