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