Move Workbooks With a Certain Name

[davehunter]

Hi Everyone,

I'm looking for help with a macro to move some Worksheets from one folder to
another (i.e. cut & paste).

The destination folder will need to also be created by the Macro.

In english, the macro will need to:

* Search through ThisWorkbook.Path for files called SOMETHING -
Exceptions.xls e.g. Workbook 1 - Exceptions.xls, Smith - Exceptions.xls etc.
etc.

* Create a directory called "Exceptions" in ThisWorkbook.Path

* Move all the files found with the name above into this Exceptions folder,
leaving all other excel workbooks here with different names.

Any help is greatfully received.

Thanks!!
Dave