Hi


I have a file which is to be sent out to different recipients (at least

200). Although the file is same I need to send this to various
recipients with different file names. I have a list that is to be used
to name the files.
For example I have a file called Report.xls and have a list a, b,
c...z. (in a file Nemes.xls). I want a code that will save the file
report.xls as a.xls, b.xls.... z.xls in the specified folder/location.


I know this is possible using VBA code.
Can you helpme by giving some useful code?


Karthik Bhat
(Bangalore)

if Report.xls is not open in excel you can use the filecopy command.

filecopy "C:\myfolder\report.xls", "C:\Mystructure\" &
workbooks("Nemes.xls") _
.Worksheets("Sheet1").Cells(i,"B").Value & ".xls"

if it is open, then use FileSaveCopyAs

Workbooks("Report.xls").SaveCopyAs "C:\MyStructure\" & _
workbooks("Nemes.xls").Worksheets("Sheet1").Cells( i,"B").Value & ".xls"


--
Regards,
Tom Ogilvy

"Karthik Bhat - Bangalore" wrote in message
ups.com...
Hi


I have a file which is to be sent out to different recipients (at least

200). Although the file is same I need to send this to various
recipients with different file names. I have a list that is to be used
to name the files.
For example I have a file called Report.xls and have a list a, b,
c...z. (in a file Nemes.xls). I want a code that will save the file
report.xls as a.xls, b.xls.... z.xls in the specified folder/location.


I know this is possible using VBA code.
Can you helpme by giving some useful code?


Karthik Bhat
(Bangalore)

Hi Tom

Thans for your reply.. But how will the value of "i" in the code be
derived from.. Shouldn't there be a if loop untill the last nonbalank
row in the names.xls file..

That is what I am implying by the i - but you gave no information on where
the list is located or the size of the list.

--
Regards,
Tom Ogilvy


"Karthik Bhat - Bangalore" wrote in message
oups.com...
Hi Tom

Thans for your reply.. But how will the value of "i" in the code be
derived from.. Shouldn't there be a if loop untill the last nonbalank
row in the names.xls file..