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.