Move Workbooks With a Certain Name

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

Thanks for the input Roy. It doesn't seem to be finding the files though.

I have edited the code slightly so that it had the directories that apply to my macro:

Please Login or Register  to view this content.

The macro is creating the EXCEPTIONS folder fine, but is not moving anything into it.

Thanks!
Dave