Auto generate "Save As" filename from text

[Excelo]

Hi All,

I'm trying to have "save as" file name automatically generate, Excel 2007, from data in two cells, client name and current date. I've seen, but it doesn't seem to work.

Sub SaveMe()
ThisWorkbook.SaveAs FileName:=Range("C1").Value
End Sub

I'm not too technical, but I can follow instructions pretty well. Any help is greatly appreciated. Also, if you know how to do it for Word 2007 it would also be appreciated, even more so.

Thanks

 

[VoG]

With client in C1 and date in D1 try like this

Sub SaveMe()
ThisWorkbook.SaveAs Filename:=Range("C1").Value & Format(Range("D1").Value, "dd-mm-yyyy") & ".xlsm"
End Sub

 

[Excelo]

Thank you!

Is there a way to change where it is saved to? By default it saves to My Documents. I want it to save to a folder I've created

 

[VoG]

Try this - change the part in red to the correct path

Sub SaveMe()
ThisWorkbook.SaveAs Filename:="C:\Test\" & Range("C1").Value & Format(Range("D1").Value, "dd=mm-yyyy") & ".xls"
End Sub

 

[ryan.naquin]

Thanks for the code! How would you add this to an active X CommandButton code? Basically if I want a user to save a workbook with certain data from multiple cells how do I make it easy for them to click a button? Thanks.