Save File Name with Date (VBA)

[O177812]

Hi,

I am trying to save my file with the following and recieving an error:

Sheets("BY DC").Select
ChDir "P:\word documents\INW Group\PROCESSED EDI FILES"
ActiveWorkbook.SaveAs Filename:= _
"P:\word documents\INW Group\PROCESSED EDI FILES\Orders created " & Text(TODAY(), "mm-dd-yyyy") & " for ship " & Text(TODAY() + 7, "mm-dd-yyyy") & ".xlsx"
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Can someone please assist?

 

[Micron]

I believe that neither Text nor Today are functions that you can use like that as they are not vba functions. Perhaps you want to use ...Orders created " & Date & ... or if you need a specific date format other than your regional settings, Date will have to be wrapped in the format function. Perhaps like

"P:\word documents\INW Group\PROCESSED EDI FILES\Orders created " & Format(Date, "mm-dd-yyyy") & " for ship " & Format(Date + 7, "mm-dd-yyyy") & ".xlsx"

 

[O177812]

Thanks!!! This worked!!