Save as a value in a cell

[newbie2002]

Dear proffesinals,

How can i write a code that saves the spreadsheet as the value in a cell. F.e. cell a1=76748, then the spreadsheet must automatically save in a folder like 76748.xls.

Thanks in advance...

 

[xlbo]

Activeworkbook.saveas Filename:= range("A1&quot.text & ".xls"
should do the trick Rgds
~Geoff~

 

[newbie2002]

Thanks a lot xlbo it works fantastic. But how can i save the files into one folder like C:\my documents\excel\ or something. I must give the path automatically...

 

[rccline]

And where does this code (Activeworkbook.saveas Filename:= range("A1&quot.text & ".xls&quot go?

Thanks.

Robert

 

[rccline]

If I create a Module
General Declarations

ActiveWorkbook.SaveAs Filename:=Range("A1&quot.Text & ".xls"
Sub SaveAsFilename()

End Sub

When I try to "RUN" I get a compile error: Invalid outside proceedure with the "A1" highlighted.


Thanks.


Robert

 

[xlbo]

the code has to be in the sub:

Sub SaveAsFilename()
ActiveWorkbook.SaveAs Filename:=worksheets("SheetnameHere&quot.Range("A1&quot.Text & ".xls"
End Sub

To answer the path question, use:
cDir "C:\my documents\excel\"
ActiveWorkbook.SaveAs Filename:=worksheets("SheetnameHere&quot.Range("A1&quot.Text & ".xls"
HTH Rgds
~Geoff~