Need to add todays date everytime i save file

[zone709]

ChDir "C:\Users\frank\Desktop\OCIP"
ActiveWorkbook.SaveAs Filename:="C:\Users\frank\Desktop\OCIP\LCP.xlsx", _

The file I am saving is called LCP. I would like it to be saved different every time with today's date on it every time I save it. Something like this

LCP - 08-23-2019

Also if it picks up that I am saving it again it can override it without asking me to replace it.

Any help thank you

 

[Joe4]

Try:

Dim fname as String
fname=[COLOR=#333333]"C:\Users\frank\Desktop\OCIP\LCP - " & Format(Date,"mm-dd-yyyy") & ".xlsx"
[/COLOR]ChDir "C:\Users\frank\Desktop\OCIP"
Application.DisplayAlerts=False
ActiveWorkbook.SaveAs Filename:=fname, _
    ...
Application.DisplayAlerts=True

 

[zone709]

hi thanks for the resposne, but i am getting these in red? like something is wrong

ActiveWorkbook.SaveAs Filename:=fname,_
Application.DisplayAlerts = True

 

[Joe4]

In your original posting, you cut off your code aftet that comma. That indicates that line of code is continued. But since you cut it off, I do not know what it was, which is what I had placed the "..." in there. Just place whatever was in your original code next in that spot. And after that line, place the last line of code I posted.

 

[zone709]

o yeah sorry I don't know why I cut that off. It was the file format

FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Thanks