Saving a worksheet with a name derived from a cell

[massimo]

I have an excel template which is used as an invoice. Based on the entries in three cells; "sales person", "company name", "date". I want to save to a particular directory and the file name should be e.g. c:/invoices/sales person-company-date.xls. depending on what was entered into the relevant cells.
I can create a string linking all these together but can't get the save as part to work. Can anyone help?

 

[Paul B]

This code was written by Barrie Davidson, I modified it to your needs, I think, give it a try.

Sub Save_by_Cell_Valve()
'Will save the sheet to C:/invoices and name it what is in cell A1
Application.ScreenUpdating = False
Dim saveName As String
saveName = (Range("A1").Value)
ActiveWorkbook.Sheets.Select
Sheets.Copy
ActiveSheet.Activate
ChDir "c:/invoices"
ActiveWorkbook.SaveAs (saveName)
ActiveWorkbook.Close
ActiveSheet.Select
Application.ScreenUpdating = False
End Sub

 

[JimB]

I too, have the need for this feature. However, I cannot get it to save as TODAY() as the dating format in the formula bar is mm/dd/yy and the "/" is not accepted for file names. I need the file to be named as the date it was saved.

Any suggestions?

Thanks for a great forum!!!

 

[zzydhf]

try this:
=text(today(),"mm_dd_yyyy")

_________________
Oh, you hate your job? Why didn't you say so? There's a support group
for that. It's called EVERYBODY, and they meet at the bar. - Drew Carey
This message was edited by zzydhf on 2002-10-01 12:19