Greetings rjclark and welcome to VBAX, 
Untested but as we suspect a timing issue of sorts, in a junk copyof your workbook, try:
'// Change... //
Set NewBook = Workbooks.Add
ThisWorkbook.Sheets("Production 5S").Copy Before:=NewBook.Sheets(1) 'code stops at this line on error
NewBook.SaveAs Filename:=FPath & "\" & FName
NewBook.Close False
'// ...To: //
Set NewBook = Workbooks.Add
NewBook.SaveAs Filename:=FPath & "\" & FName
ThisWorkbook.Sheets("Production 5S").Copy Before:=NewBook.Sheets(1) 'code stops at this line on error
NewBook.SaveAs Filename:=FPath & "\" & FName
NewBook.Close False
Hope that helps,
Mark