VBA in 2010 copied sheet to new workbook fine; in 2016 the current workbook closes before the code is complete

[MacroPolo]

My company is upgrading computers and Office from 2010 to 2016. A workbook had VBA code (created via macro, so probably not as optimized as possible) to update data in a form on a sheet from a table, save the values in the form, and then copy that sheet to a new workbook using the data to save it with a unique filename. When it finished saving the new workbook, the code looped to the next record in the source workbook and repeated those steps until it reached the end of the list. Now that we have switched to Excel 2016, the code runs fine until it tries to copy the sheet with the form to a new workbook. It opens the new workbook and closes the source one which interrupts the code execution. As far as I can tell there were no other changes except moving from Win7 and Excel 2010 to Win10 and Excel 2016. Any thoughts why the source workbook would now suddenly be closing?

Sheets("Form").Copy
    ChDir strNewFilePath
    ActiveWorkbook.SaveAs Filename:=strNewFilePath & strNewFileName, FileFormat _
    :=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.WindowState = xlNormal
    With ActiveWindow
        .Top = 49
        .Left = 85
    End With
    Windows("OriginalForm.xlsm").Activate
    With ActiveWindow
        .Top = -0.5
        .Left = 7.75
    End With
    Workbooks(strNewFileName).Close
    ActiveWindow.WindowState = xlMaximized

 

[JLGWhiz]

Try it with this time delay added.

Windows("OriginalForm.xlsm").Activate
    With ActiveWindow
        .Top = -0.5
        .Left = 7.75
    End With
Dim wt As Integer
wt = Timer + 2
    Do While Timer < wt
        DoEvents
    Loop
    Workbooks(strNewFileName).Close
    ActiveWindow.WindowState = xlMaximized

This gives a two second delay. If you need more just change the 2 to a higher number. If you use decimals then you have to Dim wt As Double.

 

[MacroPolo]

Try it with this time delay added.
...
This gives a two second delay. If you need more just change the 2 to a higher number. If you use decimals then you have to Dim wt As Double.

Thanks for the reply. I added the timer loop, but when I stepped through in debug mode the problem is encountered on the first line of the code I posted.

Sheets("Form").Copy

Reading the MS document on that method indicates it is supposed to copy the sheet to a new workbook. After multiple trials, I've found it opens a new workbook, but does not even copy the sheet. On a couple of occasions, it reopened the original file in recovery mode.

 

[JLGWhiz]

You are having a problem!

Sheets("Form").Copy

should create a new workbook with the original sheet as sheet 1, and the only sheet in that new workbook. This is the first that I have heard where it created a workbook with an empty sheet.
I don't know what to tell you about the behavior you describe, except it is not normal.