Saving on specific dates

[kulmjord]

Hey guys here is my function:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Weekday(Date) = 5 Then
ChDir "G:\CHPP\METALLURGY\Reports\2017\CHPP Summary\Weekly"
    ActiveWorkbook.SaveAs Filename:= _
        "G:\CHPP\METALLURGY\Reports\2017\CHPP Summary\Weekly\01 January17.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If
End Sub

Pretty much all I am trying to do is automatically save every Friday when the excel spread sheet is exited. I thought this code would work but it just save every time I exit regardless of what day it is. Any help is appreciated.


Thanks

 

[RedBeard]

Odd.

If you run debug.print weekdayname(5), what do you get?

 

[kulmjord]

Odd.

If you run debug.print weekdayname(5), what do you get?

Thanks for the reply, I think I solved my original problem however I would like to add the date to the end of the file name when it saves, how would I do this?


Thanks

 

[RedBeard]

What date are we talking about, the day when it saves the file or some other date?