Macro to Rename Worksheet Tab with Workbook File Name

Hi all - I'm looking for either a simple or more complex solution.

Simple: I'm looking for a macro to rename the Worksheet Tab in my workbook to the filename without the ".xls".

Complex: I have about 220 1-sheet workbooks that I need to consolidate into 22 separate workbooks with 10 worksheet tabs each.

For example, I have 10 separate workbooks with the file names as follows: ABC-Account1.xls, ABC-Account2.xls, ABC-Account3.xls....ABC-Account10.xls. Each of these workbooks consist of just 1 worksheet, tab named "Account Definite Production by "
I want to do the following:
- In each individual workbook, rename the Worksheet Tab to Account1, Account2, Account3....Account10 (remove the "ABC-"and ".xls")
- Create a NEW Workbook with the file name "ABC" and 10 worksheet tabs Account1, Account2, Account3....Account10

Any help will be greatly appreciated!
SP