Copying named worksheet from a workbook to a new workbook

Hi,

Can somebody help me with a code. I have over 100 files all containing same named worksheets. E.g A file named Shemebudget.xls will contain worksheets named Staff, Training, I&E, Assets etc..

I want a code that will copy a worksheet say I&E from each file and saved into a single workbook and rename each tab with the name of the file.

So all the help will be greatly appreciated.

Thanks