Saving a workbook

[Andrew B]

Hi
I am trying to save a newly created workbook, using the value of a cell
as its name.
These cell values are used in the first workbook.

[M24] = C:\Documents and Settings\Memos\ 'Pathway for file
[M19] = Memo1 'file name

Workbooks.Add

Then, I've tried the following without success:

Workbook.SaveAs ([M19] & ".xls")
or
ActiveWorkbook.SaveAs [M19] & ".xls"
or
ActiveWorkbook.SaveAs [M24] & [M19] & ".xls"
or
Workbooks(ActiveWorkbook).SaveAs [M19] & ".xls"

Can someone please help me ?

Thank you

 

[davesexcel]

myfilename = "d:\somewhere\" & Range("customer") & "\"
Range("address")
ActiveWorkbook.SaveAs Filename:= _
myfilename, FileFormat _
:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False

"customer" is a named range for a subdirectory
for this to work, the subfolder already has to exist

"address" is a named range for the actual file name

you don't have to used named ranges, but I like to, because its easie
to write formulas and work with code

 

[Nigel]

ActiveWorkbook.SaveAs Filename:=Range("M24") & Range("M19") & ".xls"

 

[Andrew B]

Thank you - it now works.

Andrew B