This Code is stopping halfway through - vba

Question

My below code was all running perfectly fine when I had it all in one function, now that I separated it into a different function for better readability and easier modifications, it's stopping after the function call. Does anyone know why its doing this?
If (Not (Find_First("ERR", Sheets("Consolidated_Data850").Range("G:G")))) Then
Debug.Print "No data errors found!"
Call SaveFile(TempFilePath & "ValidPOs.xls")
' LR = Sheets("Consolidated_Data850").Range("A" & Rows.Count).End(xlUp).row
' Debug.Print "Saving file to... " & Chr(13) & SaveFilePath & "\ValidPOs.xls"
' If Dir(SaveFilePath & "\ValidPOs.xls") <> "" Then Kill SaveFilePath & "\ValidPOs.xls"
' ActiveWorkbook.SaveAs FileName:=SaveFilePath & "\ValidPOs.xls", FileFormat:=51
' Call GenerateEmail(TempFolder & ValidFileName, _
' SaveFilePath & "\ValidPOs.xls", _
' Sheets("Consolidated_Data850").Range("A:F" & LR))
"(" & MarksFolder & ValidTemplate & ") using Range(" & Range("A:F" & LR).Address & ")"
Call GenerateEmail(MarksFolder & ValidTemplate, _
TempFilePath & "ValidPOs.xls", _
Sheets("Consolidated_Data850").Range("A:F" & LR))
Else
Debug.Print "Found errors"
End If
New function that replaced the comment section above...
Private Sub SaveFile(FileNamePath As String)
LR = Sheets("Consolidated_Data850").Range("A" & Rows.Count).End(xlUp).row
Debug.Print "Savingfile to... " & FileNamePath
If Dir(FileNamePath) <> "" Then Kill FileNamePath
On Error GoTo ErrHandler:
Debug.Print "Generating Email (" & TempFilePath & "ValidPOs.xls" & ")" & Chr(13) & _
ActiveWorkbook.SaveAs FileName:=FileNamePath, FileFormat:=51
Exit Sub
ErrHandler:
Debug.Print "Error # " & Str(Err.Number) & " was generated " _
& Err.Source & Chr(13) & "Error Line: " & Erl & Chr(13) & Err.Description
End Sub
Everything works perfectly, but once it leaves that second function (after the save) it stops and does not continue the code
EDIT
It seems as thought the code just stops here, and it's NOT calling the function

Answer 1

Call SaveFile(TempFilePath & "ValidPOs.xls")
Are you sure that TempfilePath is a valid path and that it ends with a "\"?
If you step through with F8 does it highlight the End Sub before stopping or does the yellow highlight vanish from ActiveWorkbook.saveas without moving on?
Check the date and time last saved for your activeworkbook - is it actually being saved? My money is on some error here - out of disk space, invalid path or similar. But if not - and this is pretty random but replace the call - just use
SaveFile TempFilePath & "ValidPOs.xls"
(Note no brackets if you omit the call) - I have had it sometimes work with the shorthand when it's failed on the formal syntax.
Edited in reponse to code changes: You need to Exit Sub before your error handler
Private Sub SaveFile(FileNamePath As String)
LR = Sheets("Consolidated_Data850").Range("A" & Rows.Count).End(xlUp).row
Debug.Print "Savingfile to... " & FileNamePath
If Dir(FileNamePath) <> "" Then Kill FileNamePath
On Error GoTo ErrHandler:
Debug.Print "Generating Email (" & TempFilePath & "ValidPOs.xls" & ")" & Chr(13) & _
ActiveWorkbook.SaveAs FileName:=FileNamePath, FileFormat:=51
EXIT SUB ' if you miss this your error handler below is run irrespective of
' whether there's an error or not.
ErrHandler:
Debug.Print "Error # " & Str(Err.Number) & " was generated " _
& Err.Source & Chr(13) & "Error Line: " & Erl & Chr(13) &
Err.Description
End Sub

Answer 2

Found the error in the code above... The Range I was using to pass into the GenerateEmail() function was too broad of a range, the LR wasn't being set to a number and was using the entire column instead of a the Last Row that was NOT being calculated
Appreciate everyone for the assistance in error handling and debugging!