SaveAs with today's date in file name

Greetings All,

Basically the title says it all, i want to save a sheet tab as a separate XLS file with today's date in the file name. Here is what i have but its not working for some reason and i cant put my finger on it.

I setup today's date by using this:

    Dim strExportDate As String
    strExportDate = Month(Now) & "/" & Day(Now) & "/" & Year(Now)

This is the saveas code i WANT to use but its broken:

    ActiveWorkbook.SaveAs Filename:="M:\Estimating\EST_Price_Tables " & strExportDate & ".xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

This is the code i am using for now since the above does not work:

    ActiveWorkbook.SaveAs Filename:="M:\Estimating\EST_Price_Tables.xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

Hi,

I don't think that the oblique character is permissable as part of a filename.

How about

    Dim strExportDate As String
    strExportDate = Month(Now) & "-" & Day(Now) & "-" & Year(Now)

or more succinctly

strExportDate = Format(Now(), "mm-dd-yy")

Try

  Dim strExportDate As String
    strExportDate = Format(Date, "mm-dd-yy")

or

Dim strExportDate As String
  strExportDate = Format(Date, "mm-dd-yy") & ".xls"
  ActiveSheet.Copy
  ActiveWorkbook.SaveAs strExportDate