Macro save a file - dynamic name

[roversam]

I have a file with the following data:
A1 - Information
A2 - Date
A3 - Folder

I want a macro to save the file in folder A3, with the name "[A1] [MONTH(A2)] [DAY(A2)] [YEAR(A2)]"

How do I do that?

 

[pedie]

Try this.

[/FONT]
[FONT=Courier New]Sub test()
Dim myfilename As String
myfilename = Range("C2").Value & Range("A2").Value & " " & Format(Range("B2"), "MM DD YY")
ActiveWorkbook.SaveAs Filename:=myfilename & ".xlsm", FileFormat:=xlNormal
End Sub

 

[shg]

    Dim sPath As String
    sPath = Range("A2").Value
    
    If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
    ActiveWorkbook.SaveAs sPath & Range("A1").Value & Format(Range("A2").Value, " mmddyyyy")

I would use date format yyyymmdd instead ...

 

[roversam]

Wait... but I have to save in the folder specified in A3

 

[pedie]

A1 - Information
A2 - Date
A3 - Folder

Try this.

[/FONT]
[FONT=Courier New]Sub test()[/FONT]
[FONT=Courier New]Dim myfilename As String[/FONT]
[FONT=Courier New]myfilename = Range("a3").Value & Range("A1").Value & " " & Format(Range("a2"), "MM DD YY")[/FONT]
[FONT=Courier New]ActiveWorkbook.SaveAs Filename:=myfilename & ".xlsm", FileFormat:=xlNormal[/FONT]
[FONT=Courier New]End Sub[/FONT]
[FONT=Courier New]