Hello, I just wish to get the date to be date - 1 (which works), however I want it to save only dates during the week, here is my code. I tried changing the date to workdate - 1 and it gave me a date in 1899.
Sub Save_Files()
Dim xDate As Date
xDate = WorkDate - 1
Application.ScreenUpdating = False
On Error GoTo err_handle
'Format(xDate, "dd-mm-yyyy")
'Saving MORE Reports
'NBCGFDELTAINSTRUMENT
Workbooks.Open Filename:="y:\Risk\Risk Report\MORE\NBCGFDELTAINSTRUMENT.xls"
ActiveWorkbook.SaveAs Filename:= _
"y:\Risk\Risk Report\MORE\NBCGFDELTAINSTRUMENT " & Format(xDate, "dd-mm-yyyy") & ".xls"
ActiveWorkbook.Close
Bookmarks