Macro to Save As a file with a date in dd-monthname-yyyy

Hi

Can you suggest me a macro which will save a new workbook created using a macro in this particular format:

"Filename dd-monthname(3digits only)-yyyy"

Example: "Alarm Logs 16-Mar-2012"

If the month name is not possible for three digits, it can be as "Alarm Logs 16-March-2012" but the capital letter for month is important.


Any help would be appreciated.

Thank you in advance

give this a shot

ActiveWorkbook.SaveAs Filename:="Alarm Logs " & Format(Date, "dd-mmm-yyyy") & ".xlsx"

try this, no need for the second quote before Alarm Logs.

ActiveWorkbook.SaveAs Filename:=""C:\Documents and Settings\dinesh.gundu\Desktop\Alarm Logs " & Format(Date, "dd-mmm-yyyy") & ".xlsx"

and the star button is to the bottom left of a post.

hope this works for you.

try something like this:

    Dim NewBook As Workbook
    Set NewBook = Workbook.Add
    NewBook.Activate

sorry i missed an s

    Dim NewBook As Workbook
    Set NewBook = Workbooks.Add
    NewBook.Activate

I tried this but I kept getting this error... Compile Error, can't find project or library. HELP

Sub SaveAs()

        ChDir "D:\My Documents\Francis Work Files\Suntrac Traders Database"
   'Retrieve file name to use for Save
   fileSaveName = Application.GetSaveAsFilename( _
   fileFilter:="Excel Files (*.xlsm), *.xlsm")
   

      
      'If user specified file name, perform Save and display msgbox
      
   If fileSaveName <> False Then
      ActiveWorkbook.SaveAS Filename:=fileSaveName, FileFormat:=52
      
      MsgBox "Save as " & fileSaveName
   End If
   Sheets("Consolidated").Select
    Range("A1").Select

End Sub

Gabkrys,

Welcome to the forum.

I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. If you need more information on how to use them, check my signature below this post.