Thread: SaveAs Procedure wont complete unless Ended

This is where it gets stuck. Unfortunately I can't put the workbook up. Will see if i can take some content out of the template and post that. i am thinking along the line of its something in the template or other set ups. Its not the code as works fine with a blank worksheet.

Sub TimesheetDeploy2()
'Written by Lisa Davidson, NQBP Commercial Contracts and Projects Coordinator

    'Save As
        Dim PathStr As String
        Dim SaveStr As String
        Dim NameStr As String
        Dim DateStr As String
        
        NameStr = "Timesheet_" & ActiveSheet.Range("D4").Value
        DateStr = Format(ActiveSheet.Range("D6").Value, "yymmdd")
        PathStr = "PathName"
        SaveStr = PathStr & NameStr & "_" & DateStr
        FileExtStr = ".xls"
        
        With ActiveWorkbook
               .SaveAs SaveStr & FileExtStr
               .Close SaveChanges:=False
               On Error Resume Next
               
        End With
    
    'Open Timesheet Again
        Workbooks.Open TimesheetPath & TimesheetName
    
    'Go Back to Employee Summary.xls
        Workbooks(EmpSum1).Activate
        ActiveCell.Offset(1, 0).Select
    
End Sub

is there something to force it to action?

I have figured out what it is but need to know how to overcome.

In the template file, I have a before save procedure. If this is not in the template file i don't have the problem when I try to run the Save As procedure (which is in another file).

Thats were there is a long winded path name that I thought i'd do you the favour of not having to read.

i have run a few more test the problem is the automated before save macro in the template. I changed the location of the to before close. It saves then obviously stops on the:

.Close SaveChanges:=False

I need the template to have this macros active is there another close code that would close that would overwrite the before close macro?

Oh thank you so much it works!!! Your are a star, this has been bugging me for the last few hours!