Close open workboos with script

I currently use this code to save a backup copy of my workbook.

Where the open file is "c:\RV Park Files\Daily Report 2013.xslm"

 
ActiveWorkbook.Save

 ' Save a backup

Sub ChangeTrailer(): Dim Pathplus As String, S As String, D As String, Dt As Date: Dt = Date - 1
If Day(Dt) > 10 And Day(Dt) < 14 Then S = "th" Else _
S = Mid("thstndrdthththththth", (DatePart("d", Dt) Mod 10) * 2 + 1, 2)

D = Format(Dt, "mmm") & " " & Format(Dt, "d") & S & " " & Format(Dt, "yyyy")

Pathplus = "C:\A Backup Park Files 13\Daily Rpts 13\Daily Report for  " & D & ".xlsm"

    ActiveWorkbook.SaveAs Filename:=Pathplus, _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

This works for using today's date in the backup copy.

However, I often work on several days reports on the same day, and would like a backup copy with the date for that day's work.

Is it possible to have the "Pathplus = " (refering to a specific cell within the workbook) " ie "Sheet1!c5"

Where that cell in the workbook will contain the path & Name I want to use. ie "C:\A Backup Park Files 13\Daily Rpts3\Daily Report for Jan 17th.xlsm"

Also I would like to close the backup copy at this time and reopen the original file. ie "c:\RV Park Files\Daily Report 2013.xslm"

ready to enter the next day's data.

I used excel's help to see how the write the SaveCopyAs.

Using that, it didn't work.

Not sure how it should have been written.

Thank You

Ok, after a lot of trial & errors, I got the 'SaveCopyAs" command to work.
However, I have to change the name of the file each day to get a difference copy for each day.

I would still like to have the name changed by reference a cell in the workbook I'm saving.

Thank You

Yes that worked just find.

Thank You Very much

I copied & Pasted the code, it worked through saving the backup as I named it on sheet1 range c5.

However it then gives me a run-time error 1004

saying:
The file could not be accessed. Try one of the following:
Make sure the specified folder exists.
Make sure the folder that contains the file is not read only
Make sure the file name does not contain any of the following charcters: <>?[]:|ir*
Make sure the file/path name doesn't contain more than 218

I press the Debug key and it highlights the code line:

ActiveWorkbook.SaveAs Filename:=stPathPlus

It did save the file as I named it for a backup, the stops there.

I copied & Pasted the code, it worked through saving the backup as I named it on sheet1 range c5.

However it then gives me a run-time error 1004

saying:
The file could not be accessed. Try one of the following:
Make sure the specified folder exists.
Make sure the folder that contains the file is not read only
Make sure the file name does not contain any of the following charcters: <>?[]:|ir*
Make sure the file/path name doesn't contain more than 218

I press the Debug key and it highlights the code line:

[Select Code]

ActiveWorkbook.SaveAs Filename:=stPathPlus

It did save the file as I named it for a backup, the stops there.

Sorry last response was for Richard.
He also had that line of code.
However, I'm not a programer and need more to know how to enter the line start to finish.

Thank You

Sorry, that response about 'start to finish" was for a someone else.
My earlier response to you complete code, ie it gave an error message, still applies.

I ran the code as a stand lone action and still get the same error message.

I'm not sure how to fix it.

Thank You