Save Filename as Current Date

[Silady]

I've been trying different macros to get excel to save as the file with the current date as the filename to no avail. Currently the code I have in my Workbook is this.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("aj23,ab15,ad14").Interior.ColorIndex = 4 Then
Cancel = False
ElseIf Range("aj23,ab15,ad14").Interior.ColorIndex <> 4 Then
Cancel = True
MsgBox "Please check that all orders are complete"

End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = False Then
Cancel = True
MsgBox "The 'Save' function for this workbook has " & Chr(10) & "been disabled. Please use 'Save As'.", vbOKOnly + vbInformation, "Save Disabled"
End If

End Sub

Sub Saveas()

Dim Filename
Sdate = " - " & Format(Date, "dd-mm-yyyy")
Filename = "Daily Orders"
ActiveWorkbook.Saveas Filename:=ActiveWorkbook.Path & "/" & Filename & Sdate & ".xlsx"

End Sub

My issue is that it just doesn't appear to do anything. Whenever I click SaveAs it just tries saving the file as its current name

 

[JoeMo]

Has the activeworkbook been saved previously? If no, then there is no path for it.

 

[Silady]

Yeah, I've saved it. Closed it and run the workbook again and it still doesn't work

 

[JoeMo]

Yeah, I've saved it. Closed it and run the workbook again and it still doesn't work

Try this (changes are in red):

Sub Saveas()
Dim Filename
Sdate = " - " & Format(Date, "dd-mm-yyyy")
Filename = "Daily Orders"
ActiveWorkbook.Saveas Filename:=ActiveWorkbook.Path & "\" & Filename & Sdate & ".xlsx", FileFormat:=51
End Sub

 

[Silady]

Still no luck, I've even tried setting a file path for it.
Just tried getting it to work on a blank sheet with no success too. I'm struggling to see what the issue is.

 

[JoeMo]

Still no luck, I've even tried setting a file path for it.
Just tried getting it to work on a blank sheet with no success too. I'm struggling to see what the issue is.

What I posted works for me. Are you on a PC or a Mac?

 

[Silady]

PC, I'll try it again later tonight