File Save As ......

[sohaibj]

I've Emp # and Name written from A1:B100.
I want to save this file for these 100 employees with the help of "Save As".
The name of file would be Emp#+Name.
Is there any way to do it?

 

[grizz]

when you click on save as -- at the bottom were it says file name type in employee # and name and click save
just make sure you look to were you Save in at top

 

[Glory]

>_>

for each cell in ThisWorkbook.Sheets("theSheet").Range("A1:A100")
 
   ThisWorkbook.SaveAs(cell & cell.offset(0,1) & ".xls")
 
next

Test this one range "A1" first, not "A1:A100"... unless you want to sit through a hundred save events only to find out something went awry at the very end.