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