Cell text to filename (again)

[clacka]

I am an excel newbie creating a form in Excel.

In cell A1 I have a formula that concatenates the date in numerical format with another cell on the form.

I have a button on the form that I want to link to a macro that will automatically "save as" and change the file name to the result of the formula in cell A1.

I have searched the forum and read several posts but have not yet found the answer.

Anyone?

[Rutgers_Excels]

Depends on where you want to save it. You need to specify a filepath unless you want it to save to My Documents everytime. Here's something to get you started.


fname = Range("A1").Value
ActiveWorkbook.SaveAs Filename:=fname

[clacka]

Thanks! I really appreciate it!

I want it to be saved to a folder on the desktop called "Transfers"

How would I do that?

[Rutgers_Excels]

Keep in mind that PRC6038 is my user name. You will need to insert your user name over mine in order for it to work.



On Error GoTo fEnd
fPath = "C:\Documents and Settings\PRC6038\Desktop\Transfers\"
i = Range("A1").Value
ActiveWorkbook.SaveAs Filename:=fPath & i

fEnd:
End


Hope this helps!

[clacka]

Fantastic! Thanks.