The little tricks that most people don't know. if yo do a copy without using
before or after a new workbook is created.

ActiveSheet.Copy
Set newbk = ActiveWorkbook 'this is the copied sheet with one worksheet
newbk.SaveAs Filename:="c:\temp\book1.xls"



"sammy" wrote:

Hi Joel,

Thanks for the very quick response. And i like the idea of just copying the
worksheets to a directory but how can i copy only one worksheet from a book
with several sheets?

Sammy

"Joel" wrote:

I wouldn't have the workers opening a supervisors workbook. the better way
of doing this is to have a macro in each workers worksheet that saves the
files in a directory. then have the supervisor run a macro to gether or the
time sheets in his workbook.

You can set up weekly folders in adavance and then have the workers save the
file into the correct weekly directory based on the date.