Macro to change saved name

[roger]

I have a couple thousand rows of data that I need to sort
by supervisor. However, it is payroll info, so I have to
sort, copy, and paste each supervisors info into a new
workbook without showing them the other info, each book
will then be e-mailed to the respective supervisors.

I can writew a macro to do everything except change the
save name. I tried copying and pasting into the save as
box, but it continues to save it under the original name I
used when writing the macro. Is there anything I can do?

Thanks

 

[Tom Ogilvy]

superName should hold the name of the supervisor.

sName = "C:\Folder1\" & superName & ".xls"
activeworkbook.SaveAs Filename:=sName
activeworkbook.Close SaveChanges:=False